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PSEFACE 


The purpose of this book is to survey computational flow research 
on the design and analysis of supercritical wing sections supported by 
the National Aeronautics and Space Administration at the Energy 
Research and Development Administration Mathematics and Computing 
Laboratory of New York University. The work was performed under NASA 
Grants NGR 33-016-167 and NGR 33-016-201 and ERDA Contract 
EY-76-C-02-3077 . Computer programs to be listed and described have 
applications in the study of flight of modern aircraft at high sub- 
sonic speeds. One of the codps generates cascades of shockless tran- 
sonic airfoils that are expected to increase significantly the effici- 

j 

ency of compressors and turbines. Good simulation of physically 
observed flows has been achieved. 

This work is a sequel to two earlier books [1,2J published by 
Springer-Verlag under similar titles that we shall refer to as Volumes 
I and II. 

New York 


November 1977 
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I . INTKODUCTION 


1. Shockless Airfoils and Supercritical Wing Sections 

Supercritical wing technology is expected to have a significant 
influence on the next generation of commercial aircraft. Computation- 
al fluid dynamics has played a central role in the development of new 
supercritical wing sections. One of the principal tools is a fast and 
reliable code that simulates two-dimensional wind tunnel data for 
transonic flow at high Reynolds numbers (see Volume II) . This is used 
widely by industry to assess drag creep and drag rise. 

Codes for the design of shockless airfoils by the hodograph method 
have not been so well received because they usually require a lot of 
trial and error {see Volume I) . However, a more advanced mathematical 
approach makes it possible to assign the pressure as a function of the 
arc length and then obtain a shockless airfoil that nearly achieves 
the desired distribution of pressure [11] , This tool should enable 
engineers to design families of transonic airfoils more easily both 
for airplane wings and for compressor blades in cascade. 

There are plans to use the supercritical wing on commercial' air- 
craft to economize on fuel consumption by reducing drag. Computer 
codes have served well in meeting the demand for new wing sections. 
This work is an example of the possibility of replacing routine wind 
tunnel tests by computational fluid dynamics . 

An effective approach to the supercritical wing is through shock- 
less airfoils. An advanced design code implementing the concept of 
designing a shockless airfoil so that its pressure distribution very 
nearly takes on prescribed data has been written recently. It has 
turned out to be so successful that we 'hope it may ultimately gain the 
same acceptance as the better established analysis code. 

In this book we shall describe the new design code in detail and 
we shall give an update of the analysis code, which incorporates new 
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features decreasing the execution time. Fortran listings are includ- 
ed, together with directions for running the codes. A selection of 

examples and comparisons with experiment complete the work. They 
1 

include shockless airfoils in cascade suggesting a new technology for 
turbomachinery that may contribute significantly to energy conserva- 
tion. 


2, Differential Equations of Gas Dynamics 


The partial differential equation for the velocity potential 
describing isentropic flow of a compressible fluid can be derived from 
a variational principle asserting that the integral over the flow 
field of the pressure p, considered to be a function of the speed 
q = ]V<j>|, is stationary in its dependence on (p, 'The variational prin- 
ciple is useful in the formulation of finite element and finite 
difference methods. Here it will suffice to state the equation for 
(js in the quasilinear form 


(c^-u^)tJijj^ - 2uv + (c^-v^)(f)yy = 0 


for plane flow, where u = , v = i|i and c is the speed of sound 

2 2 2 

related to q = u +v by Bernoulli • s law 



2 

+ — ^ “ const. 

Y“1 


The normal derivative of (j) is set equal to zero at the boundary of 
the flow. 

For many transonic flows of practical interest, including flows 
around airfoils, we can assume entropy to be conseirved across shock 
waves, so the velocity potential can be retained in the formulation 
of the equations of motion. Moreover, when shockless flows appear 
they can often be viewed as physically relevant weak solutions of the 
equations for which shock losses have been successfully_eliininated. 

We proceed to bring the equation for i}i into a canonical form 
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suitable for computation. The physical coordinates x and y are con- 
nected with the velocity potential ^ and the stream function V' hy the 
relation 


X + iy 



(d(|> + 



where 6 is the flow angle and p is the density given by the equation 
of state p = p, or c = yp' . We find it convenient to solve first 
for ij) and »{) and obtain x and y afterwards from this integral. 

The ordinary differential equation for the characteristics, or 
Mach lines, of the flow is known to be 


(c^-u^) dy^ + 2uv dy dx t (c^-v^) dx^ = 0 


In terms of (ji and ij» it becomes 

d(|)^ + (1 - M^) di|j^/p^ = 0 , 

where M = q/c is the local Mach number. We introduce characteristic 
coordinates ? and n associated with the integrals of this equation 
(see Volume I) . In terms of ? and n we obtain for ^ and i]) the 
canonical system 

= i/i'-i? ij)^/p , • 

These partial differential equations will be integrated numerically by 
a finite difference scheme of the form 


♦j,k - • 
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Kere and t stand for sultaljle mean, values of tlie coefficients 
+ iA-M^/p, wluLch. become known functions of ? and n when the corres« 
ponding system of partial differential equations for the hodograph 
variables u and v is solved in closed form. In Volume I it has been 
shown how the finite difference scheme can be implemented for sub- 
sonic as well as supersonic flow through analytic extension into the 
complex domain. 



II. THE METHOD OF COJIPLEX CHARACTERISTICS 


1. A Mev/ Boundacy Value Problem 

We have seen that physically realistic transonic flow computations 
can be based on partial differential equations for the velocity poten- 
tial and stream function that presuppose conservation of entropy. 

In terms of characteristic coordinates ^ and T| we have 


‘f’C = 


n - 


The coordinates C and n can be specified in terms of the speed q and 
the flow angle 0 by the formulas 


log f(5) 


= I /C 


^ - ie 


log f(n) = A-M^ ^ + 10 , 


where f is any complex analytic function. Prescription of a second 
arbitrary function g serves to determine i|) and as solutions of the 
characteristic initial value problem 


= gCI) 


= g(n) ^ 


where ” '^0 ^ fixed subsonic point in the complex plane. With 

these conventions it turns out that = 4'tC/h) r as can be seen 

from the uniqueness of the solution. Hence for subsonic flow the real 

4 

hodograph plane corresponds to points in the complex domain where 
5 = Ji. To calculate ^ and paths of integration are laid down in the 
complex planer and then a stable finite difference scheme is applied 
to solve the characteristic initial value problem (see Volume I) . 

Consider the nonlinear boundary value problem of designing an air- 
foil on which the speed q has been assigned as a function of the arc 
length s. To construct such an airfoil it is helpful to view f as a 
function mapping the unit circle [^| <1 onto the region of flow. 

Then both log f and g have natural expansions as power series 
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log f(€) = I , g(S) - I 


in K after appropriate singularities accounting for the flow at infin- 
ity have been subtracted off* The coefficients of truncations of 
these series can be determined by Interpolating to meet boundary con- 
ditions on q and ijj at equally spaced points of the circumference 
l^j — 1. Such a numerical solution is easily calculated because the 
matrix of the system of linear equations for the coefficients is well 
conditioned. This analytical procedure has the advantage that its 
formulation can be extended to the case of transonic flow so as to 
yield a shockless airfoil nearly fitting the prescribed data even when 
an exact -solution of the physical problem does not exist [11]. 

To calculate transonic flows by the method that has been proposed, 
. . 2 

it IS necessary to circumvent the sonic locus M == 1, which becomes a 
singularity of the partial differential equations for ^ and in 
canonical form. In the plane ^ = ri this locus separates the region of 
subsonic flow from a domain where is no longer real. In the 

latter domain it is necessary to extend in some empirical fashion the 
relationship between <fi and s that is imposed by assigning q as a 
function of s. A formulation of the boundary conditions that applies 
to both the subsonic and the supersonic flow regimes is given by the 
formulas 


Re{log. .h Re{i[F(C,£;]J. + K^- -Im{i|».(C.,.g)J_= 0 


on 1^1 = 1, where h is defined as a function of q, and therefore of 
Re{^i(g,l)}, by the relation 


log h(q) = log h(c*3 + 


\/l 


l-II dq/q 


K, 


and is the ’critical speed. The real constants and may 

be arbitrary for q > c* , but = K 2 = 1 for q < c^. 

Empirical data on the condition number of the matrix for the 
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linear equations detenaining the power series coefficients of the 
analytic function g indicate that the boundary value problem for ip 
that has been formulated is well posed even in the transonic case [11] 
In contrast with the Tricomi problem, boundary values are assigned 
around the whole circumference of the unit circle. The success of the 
procedure can be attributed to the fact that data are assigned in a 
suitable complex extension of the real plane. Sans [28] has shown 
that the new boundary value problem for ip is well posed in the special 
case of the Tricomi equation in a symmetric domain,- which gives some 
theoretical support for the numerical method. 

A sink and a source Sg in the unit circle are associated with 
the flow at infinity for a cascade. At these points there are loga- 
rithmic singularities of the velocity potential (p &nd the stream 
function ip that can be represented in the form 


(p = Re{(p^log ' 

tj) = Re{ip^log * 


The coefficients 4)^ and regular arid single-valued, and they can 

be calculated as solutions of characteristic initial value problems 
that have been described elsehwere [1,23]. They are related to the 
concept of the Riemann function in partial differential ^equations [8]. 

For an isolated airfoil the two points and coalesce and the 
corresponding singularity combines a pole with a logarithmic terra. In 
all cases the singularities leave four real parEimeters free in the 
solution of the differential equations. These are to be determined 
through an appropriate normalization connected with the boundary con- 
ditions on q and ip» which restrict the behavior of (p on the unit 


circle. 
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2. Topology of the Paths of Xntegratxon 

In the design program the complex boundary value problem determin- 
ing the stream function t|;(C,£) in its dependence on the characteristic 
coordinate 5 involves a subtle choice of branch in the transonic case, 

I 

The branch is specified by the paths of integration that are used in 
the method of complex characteristics. Over the subsonic region of 
flow the basic path is a radial line segment frcn an initial point of 
integration out to the unit circle, followed by an arc of that 
circle. The path in the n-plane is taken to be the reflection of the 
path in the ^-plane, so that real results are obtained at the diagonal 
points where n = ?• 

For transonic flow the situation is more complicated because the 
2 

sonic locus M =1, where the systan of characteristic partial differ- 
ential equations becomes singular, must be avoided. For supersonic 
paths this is achieved by using different radial stems in the ?-plane 
and the n-plane, which are follov;ed by a circular arc that is travers- 
ed in one direction on |5| =1 while its reflection is traversed in 
the opposite direction on [nj = 1. For such a choice of paths 
becomes well defined at every point on the unit circle. 

The paths of integration that are used to find the real zone of 
supersonic flow after the boundary value problem has been solved are 
even more complicated. They were first introduced by Swenson [32] 
and one form of them is descr-i-bed in Volume I. For the present 
geometry they consist of polygonal and circular arcs connecting to 
opposite ends of the arc of the sonic locus located inside the unit 
circle |?| < 1, followed by this arc itself, which is again traversed 
by C' and n in opposite directions. The topology of these paths in the 
complex domain is such as to produce real characteristics in the 
physical plane corresponding to points g and ri that vary along the 
sonic locus (see Figure 3, page 49) . 
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3 . Iterative Scheme for the Map Punction 

Consider again the question of designing an airfoil on which the 
speed has been given as a function of the arc length. This leads to 
the nonlinear boundary value problem described in Section 1 interre- 
lating the map function f and the stream function ijj- incompres- 

sible flow can be found in closed form in the unit circle, so a 
linear boundary value problem for log f alone results. For compressi- 
ble flow, especially in the transonic case, the question becomes more 
difficult and an iterative method of solution is called for. 

Our procedure is first to find the map function corresponding to 
an incompressible flow with the prescribed pressure distribution. 

Given the map function, a new flow is calculated next using the method 
of complex characteristics to represent the regular part of the stream 
function i{i as a series of special solutions. When the singularities 
of the flow at infinity are normalized appropriately, one is led to 
values of or, in the transonic case, to values of Re{4>(C,C)}f from 
which q can be calculated on the unit circle. This is accomplished us- 
ing the known relationship between q and s, which defines q as a 
(multiple-valued) function of ^ because 

<{)(s) - q(s) ds . 

The values of q lead in turn to another approximation of the map func- 
tion f. We can iterate back and forth between f and iji until a flow is 
determined that fits the prescribed data adequately. 

The method converges extremely well for siibsonic flow, presumably 
because the initial guess is an exact solution in the incompressible 
case. An exact solution cannot be expected to exist for transonic flow. 
However it is remarkable that a shockless flow is almost always obtain- 
ed when there is one approximating the given data. Closure of the air- 
foil is readily attained by adjusting the pressure at the trailing 
edge and the relative lengths of arc over the upper and lower surfaces 
between the stagnation point and the trailing edge. 



III. TEAKSONIC AXRFQIL DESIGN CODE 


1. Isolated Airfoils 

V7ind tunnel tests have shown that it is feasible to design high 
performance supercritical wing sections by solving mathematically the 
inverse problem of shaping an airfoil so that the transonic flow over 
it becomes shockless at specified conditions. The construction of 
Shockless flows is most effectively carried out by means of the hodo- 
graph method based on complex characteristics that has been described 
in Chapter II . For practical applications it Is essential to combine 
the method with a reliable turbulent boundary layer correction so as 
to completely suppress separation and any loss of lift associated 
with it. 

The design method using complex characteristics is so efficient 
computationally that it has been tempting in the past to resolve the 
conflicts between various physical requirements on a desired airfoil 
by trial and error (see Volume I) . The more systematic approach we 
are considering now has the advantage of eliminating the choice of 
many inscrutable mathematical parameters in favor of prescribing the 
speed q as a function of the arc length s along the profile being 
designed. 

A problem where the specific behavior of q as a function of s 
becomes important is the suppression of boundary layer separation 
near the trailing edge of the airfoil. To treat the problem of design 
for transonic airfoils in a satisfactory- way from the engineering 
point of view, it is necessary to take into account the effect of the 
turbulent boundary layer, A simple, direct procedure is to calculate 
the displacement thickness of the boundary layer from the inviscid 
pressure distribution by a momentum integral method. We have chosen 
the method of Nash and Macdonald [27] . The displacement thickness is 
subtracted from the airfoil coordinates, which therefore have to be 
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provided with a slightly open trailing edge to begin with (see 
Volume I) . 

Since it is the inviscid flow outside the boundary layer that is 
actually calculated, separation must be eliminated entirely in the 
design if there is to be no loss of lift in practice- This can be 
accomplished by imposing a pressure distribution near the trailing 
edge of the upper surface that ^ust avoids separation according to a 
criterion of Stratford [31]. The essential feature of the Stratford 
distribution is a bound on the adverse pressure gradient (see Volume 
II) . The boundary layer correction has been ^found to give satisfact- 
ory results even when its implementation only involves a primitive 
model of the wake in which pressure forces balance across a parallel 
pair of trailing streamlines. Wind tunnel test data on heavily aft 
loaded airfoils inspire confidence in the concept of using a 
Stratford pressure distribution to avoid loss of specifications in 
design by the hodograph method. 

In the case of transonic flows calculated by the hodograph method, 
limiting lines may appear in the physical plane. However, if has been 
found that for realistic free stream Mach numbers these can be sup- 
pressed by appropriate choice of the parameters that occur in our 
specification of the boundary conditions in Section 1 of Chapter II . 
Thus a tool becomes available for the construction of supercritical 
wing sections from their pressure distributions . Figure 2 shows an 
example of a shockless airfoil that was obtained this way, together 
with its Mach lines . Observe that the input pressure coefficient C 

P 

differs somewhat from the values calculated as output of the' flow in 
the supersonic zone. The data that were assigned are based on a 
modification of the experimental pressure distribution on Whitcomb's 
original supercritical wing section [33] shown in Figure 24. 

The new code that has been written to implement the ideas we have 
described represents a major advance over what was achieved in earlier 
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versions (see Volumes I and II) .. A typical run takes about five 
minutes on the CDC 6600 computer. Closure is no longer a serious 
problem, and a valid airfoil is obtained with each run. A general 
principle to be observed when using shockless airfoils to design 
supercritical wing sections is that drag creep can be reduced by 
diminishing the size of the supersonic zone of flow. In practice, 
the best way to evaluate the performance of a new design is by means 
of the analysis code, which will be discussed in Chapter IV. 

2. Compressor Cascades 

The design code has been written to include the case of transonic 
airfoils in cascade. This model seems to offer considerable promise 
for improvement in the efficiency of certain stages of high speed 
compressors. However, to handle cascades of high solidity with 
adequate resolution it would be desirable to replace a conformal map- 
ping onto the unit circle |C[<1 by the mapping onto an ellipse, where 
the Tchebycheff polynomials become preferable to powers of ? for 
expansion of the analytic functions log f and g. This is equivalent 
to using Laurent series expansions in a circular ring. Likewise, to 
achieve adequate resolution at the trailing edge in cases of heavy 
aft loading it would be helpful to insert a special term at the tail 
in the representation of the map function f. 

For compressors with gap-to-chord ratio- G/C pot much less than 
unity, the present code is a very effective design tool. Since two 
logarithmic singularities and appear in the hodograph plane 
corresponding to the flow at infinity , more trouble is encountered 
with branches of logarithms along the paths of integration than is 
the case for isolated airfoils. However, sizeable zones of supersonic 
flow can be achieved near the leading edge of the cascade blades. To 
avoid the equivalent of drag creep, they should not be made excessive- 
ly large. 
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If the trailing edge is handled just as in the case of isolated 
airfoils, no loss of specifications should be experienced in practice.. 
This means a Stratford pressure distribution at the rear of the upper 
surface is desirable. For heavy aft loading it is necessary to model 
the lower surface of the design calculation exactly (see Figure 8). 

The concept of the supercritical compressor blade offers the 
possibility of reducing losses by as much as twenty percent and 
increasing range by a significant factor. Even for purely subsonic 
flow our new model of the trailing edge is significant and leads to 

high perfoianance. Moreover, because realistic Reynolds numbers are 

£ 

10 or less for compressor cascades, it is permissible to leave the 
trailing edge quite thick. ' Values of this thickness as high as two 
or three percent of chord are not unreasonable. Because of the lower 
Reynolds numbers , the transition from laminar to turbulent boundary 
layer plays an important role in estimation of the loss coefficient. 
Values a little in excess of ,015 are expected. 

3. Turbine Cascades 

, The first transonic turbine cascade with an enclosed zone of 
supersonic flow has been designed by McIntyre [24] , However, the 
present code is not altogether satisfactory for turbine cascades. 
Without a further version based on elliptic coordinates , gap-to-chord 
ratios are confined to the range G/C > 1. The work of Ives and 
Liutermoza [14] indicates that a transformation to elliptic coordi- 
nates might lower the range for G/C by a factor of two. Also, the 
supersonic zone cannot extend very far tovrard the trailing edge with- 
out violating branch cut constraints that can only be eliminated by 
further coding (see Section 2 of Chapter VI) . For turbines this is 
a severe restriction because the flow accelerates as we proceed 
downstream. In fact, transonic turbine cascades often have exit Mach 
numbers above unity. 
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For predominantly subsonic flow our program should produce tur- 
bine blades of unusually high performance, A new feature of interest 
is the effect of Reynolds nuinibers below 10 / which allow for an exten- 
sive laminar boundary layer. Two examples are presented in Chap- 
ter VII. 

For both compressor and turbine cascades it would be desirable to 
modify the design code so one could input the inlet and exit veloci- 
ties to determine and automatically. The program could also 

be altered to adjust the input pressure distribution so that the 
Kash-Macdonald parameter SEP would remain constant over an’ arc of the 
airfoil near the tail {see Chapter VI) . It is feasible to introduce 
an option to compute profiles with constant curvature over some arc 
near the leading edge, too. These suggestions represent a line of 
research that might be pursued in the future. 

4. Comparison with Experiment 

A program is under way to test shockless airfoils designed by the 
method of complex characteristics. Three-dimensional experiments have 
been conducted at the NASA Ames Research Center on a Boeing model of 
R. T. Jones' transonic transport furnished with an oblique super- 
critical wing we designed {2,18] . Xn addition to the expected 
improvement in performance at transonic speeds, the theoretically 
_ designed airfoil gave a seven percent increase in maximum lift-drag 
ratio throughout the subsonic range in a straight configuration when 
compared to a more conventional wing section (see Figure 30, page 87) . 
Because transition was fixed, it is reasonable to attribute this 
success to our treatment of the trailing edge and the use of a 
Stratford pressure distribution to completely eliminate separation. 

One of our compressor airfoils has been tested by the dfvlr in 
Germany for Harry Stephens of the Pratt and VThitney Aircraft Division 
of United Technologies Corporation (see Figures 8 and 31) . The 
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transonic behavior came up to expectations. In addition/ the siibsonic 
performance was excellent over an unusually wide range. Thus the con- 
cept of supercritxcal airfoils in cascade offers promise of 
significantly increasing the efficiency of turbomachinery operating 
at transonic speeds. 

From the experimental evidence it can now be concluded that one 
no longer need anticipate a loss of lift or other specifications in 
the design of transonic airfoils by 'the hodograph method,, provided 
care is taken to eliminate separation as described in the text. 
Furthermore, one can suppress drag creep with the new code by spread- 
ing out the supersonic arc and working only with moderate supersonic 
zones safely removed from the presence of limiting lines. 



IV. TW0-DB5ENSI0NAL ANMiYSIS CODE 


1, Wave Drag 

Analysis of the transonic flow past an airfoil can be based on the 
partial differential equation 

(c^-u^)(}>^ - 2uv + (c^-v^)4>yy = 0 

for the velocity potential <j>. Weak solutions modeling shock waves are 
calculated by adding artificial viscosity. This can be accomplished 
with a full conservation form (FCF) of the equation, but a simpler 
version not in conservation form (NCF) is sometimes more useful [2,9, 
10,16,25]. To handle the boundary conditions it is convenient to map 
the region of flow conformally onto the interior of the unit circle 
and use polar coordinates r and w there . The simplest way of intro- 
ducing artificial viscosity numerically, suggested first by Murman and 
Cole in a fundamental paper [26] , is to use finite difference approxi- 
mations that are retarded in the direction of the flow- This does not 
perturb -the Neimann boundary condition on (}>• 

The finite difference equations for transonic flow can be solved 
iteratively by a variety of relaxation schemes, all of which take the 
form of marching processes with respect to an artificial time para- 
meter. To take viscous effects into account, a boundary layer correc- 
tion is included in the ccmputation (see Vo lume II) . To calculate the 
effect of the turbulent boundary layer we actually compute the flow 
around a profile which results from adding the displacement thickness 
to the original airfoil. The displacement thickness 6 and the momen- 
tum thickness 0*are found using the method of Nash and Macdonald [27] , 
just as in the design code. More precisely, the method is based on 
integration of the von Karman momentum equation 
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where s, M, p, q and T are arc length, local Mach number, density, 
speed and skin friction along the surface of the axrfoil. The shape 
factor H = fi/0 is computed by a set of semi-empiric al formulas; 

M and q are functions of s which result from the inviscid flow comp- 
utation along the profile. The ordinary differential equation for 0* 
is integrated starting frcxn fixed transition points on the upper and 
lower surfaces of the airfoil, vJhere a transition Reynolds number is 
prescribed. Separation of the turbulent boundary layer is predicted 
when the Nash-Macdonald parameter 


SEP 


g ds 


exceeds .004. 

Detailed comparisons with experimental data show that the NCF 
transonic equation gives significantly better simulation of boundary 
layer-shock wave interaction than does the FCF equation, especially 
in cases with a shock at the rear of the profile where the turbulent 
boundary layer is relatively thick (see Section 2 of Chapter VII) . 

It would appear that the NCF method leads to less radical gradients 
in the pressure behind the shock, and this is consistent with the 
observations [10}. The NCF and experimental speeds both tend to jump 
down barely below the speed of sound behind a shock. Figure 23 shows 
the kind of agreement between theoretical and test data that is 
usually seen. Wall effect is accounted for by running the computer 
code at the same lift coefficient Cj^ that occurs in the experiment. 

Because of erroneous positive terms' in the artificial viscosity, 
the shock jumps defined by the NCF method create mass instead of 
conserving it [10}. However, the identity 


d(pg)/dg = (1 - p 


shows that the amount of mass produced is only of the order of magni- 
tude of the square of the shock strength for nearly sonic flow. The 
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resulting errors are therefore negligible except for their effect on 
the calculation of the wave drag, V7h.ich. has the order of magnitude of 
the cube of the shock strength. A correct estimate of the drag can be 
obtained from NCF computations by working with the path-independent 
momentum integral 


D 


= I [P dy + - c*) dip] 


The integrand has been arranged so that across a normal shock wave 
parallel to the y-axis it jumps by an amount of the third order in the 
shock strength. Therefore integration around the shocks gives a 
reasonable measure of the wave drag even V7hen mass is not conserved. 

The path of integration can be deformed onto the profile to define 
a standard integral of the pressure there, but a correction terra eval- 
uated over a large circle should be added because of a sink at 
infinity accounting for the mass generated by the NCF method. Let b, 
and denote the chord length of the airfoil, the density at- 
infinity and the speed at infinity, respectively. The corrected 


formula for the wave drag coefficient becomes 


C = 




P dy - 2 


c*-ga 


V, 2 

where the first integral is extended over the profile and the second 
integral is extended over a large circle separating the profile from 
infinity. In Figures 26-29 a comparison is presented between experi- 
mental, corrected NCF, uncorrected NCF and FCF values of the total 
drag coefficient for shockless airfoils tested at Reynolds number 
R = 20x10^ by Jerzy Kacprzynski at the National Aeronautical Estab- 
lishment in Ottawa [19,20,21]. The corrected NCF drag formula is seen 
to give the most reliable assessment of the performance of the air- 
foils. It is incorporated in our update of the analysis code. 


I dip , 


There are examples where the results of the NCF _ code agree well 
with experimental data right up to the onset of buffet. Shock loca- 
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tions are predicted with remarkable accuracy over a wide range of 
conditions, although some improvement would be desirable at lower 
Reynolds nimbers where transition becomes important. Thus the 
analysis code has been adequately validated for simulation of 
experimental data in two-dimensional flow. In particular, it models 
the trailing edge in a satisfactory way even for heavily aft loaded 
airfoils, it is therefore of some interest that the code predicts no 
loss of lift for airfoils designed by the hodograph method when a 
Stratford distribution is used to eliminate separation completely over 
the whole profile (see Chapter III and Figure 21) , 

2. A Fast Solver 

We have described a computer program that was developed to solve 
the equations of compressible flow past an airfoil in the transonic 
range, including a turbulent boundary layer correction (see also Vol- 
ume II) . The purpose of this code is to produce a reliable simula- 
tion of experimental data. A relaxation finite difference scheme is 
used on a grid mapped conformally onto the unit circle. The relaxa- 
tion scheme has recently been modified by introducing a Poisson solver 
to improve the rate of convergence [17]. The Poisson solver is based 
on the fast Fourier transform, which is used alternately with relaxa- 
tion cycles that are still needed for the stability of the scheme at 
supersonic points. Incorporating the Poisson solver has decreased the 
running time of the code on the CDC 6600 by a factor of three. This 
is especially important for our new drag formula (see Section 1) , 
whose convergence rate is excessively slow using the old iterative 
scheme. 

Since we wish to solve the transonic flow equation on a uniform 
grid, we use a mapping which transforms the interior of the unit 
circle conformally onto the exterior of the given airfoil with the 
origin mapped to infinity. In terms of polar coordinates ,r and to the 
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partial differential equation for the velocity potential (p becomes 

^ + r (c -V ) 2uv$^ 

+ r (c^+u^-2v^) * + r ^(u^+v^) (uh + rvfi ) = 0 / 

r cu r 

where 

T ^ ~— 1 2 

u = h [r$^-sin((jj+G) ] , v = h [r $^-cos (u+g) ] . 

Here h is the modulus of the derivative of the mapping function 
2 

multiplied by r , and g is the angle of attack. The singularity of <(> 
at r = 0 has been removed by the substitution 

= CQS_(j^al ^ ^ 

^ r 

For a discussion of the mapping -see Volume II. The logarithm of the 
mapping modulus h is computed at all grid points using the fast 
Fourier transform to evaluate the coefficients of the power series 
representing it. 

After the mapping is done, the velocity potential is computed at 
an equally spaced grid in the unit circle with coordinates r and to, 
so that 


r = ]Ar, ] = 0,...,n; ( 0 =JlAiii, f. = 0 




,m; 


In earlier work, the difference equations for $ were solved iterative- 
ly by line relaxation. Backward differences were used in the super- 
sonic zone and central differences at the subsonic points. Backward 
differencing amounts to adding a suitable artificial viscosity. At 
each iteration k it is convenient to solve for the change in 3>, 
denoted by rather than for Itself. This leads to an 

iteration of the form 




(k) _ 


- K# 


(k) 


^ (k+1) _ ^(k) ^ ^ 
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where N is the finite difference approximation to the differential 
operator on including artificial viscosity, and L is the linear 
difference operator corresponding to line relaxation. Various other 
operators L can be introduced on the left to accelerate the method 
[17] . To achieve convergence, L must have an inverse and the 
magnitude of the largest eigenvalue of I - L must be less than 1. 
This eigenvalue determines the rate of convergence. To be effective, 
the inversion of L must be fast and the maximum eigenvalue must be 
small . 

In order to increase the rate of convergence of the flow calcula- 
tions, a Poisson solver has been introduced to play the role of L~^. 

2 

For the subsonic points of the grid the terms multiplied by c 

2 2 

dominate. If we divide the differential equation for $ by r c , these 
terms become 


^ + i g, + $ 

rr r r ^2 ilju) ' 

which is the Laplace operator in “polar coordinates. Therefore we put 


(kl Ck) 2 

where ^ VC is the residual. By substituting the values 

(k> 

of at the previous cycle in the difference equations, we obtain 

R. at each mesh point. Then we set + X* . , where X- . 

IS the correction determined by solving the discrete Poisson equation 




in the unit circle, with 


2 2 
A ^ 3^ (Aw) 

^ (Ar>^ 


= r (Am) 
] 2Ar 


To solve for X . we introduce 

A» J 
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W = e 
m 


i (2-nf/ra] 


which satisfies the orthogonality con«3itions 


I W = TTlS 

m m 1 


0 / y 7^ V, 


ni , y = V, 


for yyV - Since 6^ is periodic in to we write as 

X„ = I F ; 

^“ 3 ^ yn in 

then 

i j X„ . W f F.m6 = F . 

m Jlil nl m _ V3 yv V] 

Substituting in the equation for X„. , we obtain for F the ra inde- 

K J 

pendent sets of tridiagonal systems 


A.{F . ^ - 2F . + F , ,} + B.{F - F , .} 

3 y,D+i y,: y,D-i 3 Prl+i u,d-1 


- 2 (1 - cos yAu)F 




where 


I P = Rp - . 

y: n 


From orthogonality we have 

P . = i I R . W"^'^ , 

V] m‘ —y,j — m 

Thus we can solve for by taking n discrete Fourier transforms of 

the columns R. . , After obtaining the P . we have la sets of tridiago- 

yg 

nal systems to solve for F . . Next we take n inverse transforms of 
f which gives us the values of at all grid points. The bound- 
ary conditions 


P = 0 at r = 0 , 


F^ = 0 at r = 1 
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are imposed in the tridiagonal systems for . 

In the code that implements this procedure the complex discrete 
Fourier transform is computed. Since all our elements are real we 
can obtain the transforms for two adjacent rows at a time using a 
method suggested by R. C. Singleton [30] . 

The largest eigenvalue of I - L is bounded by M, v;here M is 
the maximum Mach number in the flow field. For purely subsonic flow 
the convergence rate is independent of the number of grid points. For 
mixed flovj the method is not stable and therefore we alternate it 
with line relaxation steps, which are especially weil- suited for the 
supersonic zone [17] . 

The iterative process used in the updated analysis code can be 
summarized as follows: 

1. The airfoil is prescribed and mapped onto the unit circle. The 
free stream Mach number is specified and either the coefficient of 
lift or the angle of attack a can be prescribed. 

2. The flow calculation is executed for a fixed number of cycles. 

3 . A new boundary layer correction is computed and added to the 
original airfoil to give a new profile. 

4- This profile is then mapped onto the unit circle. 

Steps 2 through 4 are repeated. It is reasonable to run the code 
for a fixed coefficient of lift because there is no other provision 
for wall effect. 

The mapping scheme is fast and reliable, taking about two seconds 
of machine time on the CDC 6600. The mapping is calculated at a 
number of mesh points on the circle corresponding to the number of 
terras in the Fourier series. The mesh is chosen to give adequate 
resolution at the leading edge and to provide a grid size suitable for 
integration of the von Karman equation for the boundary layer through 


a shock. 



24 


The flow calculation is done first on a crude grid in the unit 
circle, typically 80 intervals in co and 15 in r, A flow cycle con^ 
sists of a first pass through the points of the grid using the Poisson 
solver, then a fixed number NRHIiAS of sweeps through the grid using 
the relaxation scheme. We have set NREIAX = 6 as the default value. 
However this can be varied depending on the individual case to be run. 
Runs with small supersonic zones require fewer relaxation sweeps. 

After each cycle a boundary layer correction is made. We generally 
run 20 cycles on the crude mesh. This involves 140 passes through the 
finite difference grid and 19 boundary layer corrections. Before the 
Poisson solver was introduced we always used 800 relaxation sweeps, 
with a boundary layer correction after each 20 sweeps, to achieve 
comparable accuracy. 

The iteration scheme has to be repeated on a finer grid of 160>«30 
mesh points. Here we generally compute 10 flow cycles, each consist- 
ing of one Poisson solver and six relaxation sweeps. The total run- 
ning time for the 20 cycles on a crude grid and the 10 cycles on a 
fine grid, together with the necessary boundary layer corrections and 
mappings, is 160 seconds on the CDC 6600. This is to be compared with 
520 seconds for an equivalent run without the Poisson solver. Thus 
the fast solver allows the convergence to proceed at a rapid rate, 
whereas the older relaxation scheme slowed down drastically due to a 
dominant eigenvalue of magnitude nearly one. The success of the fast 
Fourier transform depends on the fact that the number 160 - 5x2^ of 
mesh points in the angle w has many small prime factors. 

3 . Remarks about Three-Dimensional Flow 

There is needs for research on the analysis of three-dimensional 
transonic flow past wing -body combinations modeling an airplane. The 
variational principle for the velocity potential, applied in the 
context of the finite element method, offers the best prospect of 
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deriving adequate finite difference equations. Artificial viscosity 
must be added, and the most successful approach seems to be through an 
NCF formulation because of the boundary layer effect. Recently 
Jameson and Caughey [7] have published a swept wing code that repre- 
sents substantial progress on the problem. 

There is also the possibility of developing a code to design 
supercritical swept wings in three dimensions. For this purpose it 
would be desirable to combine the best features of the two-dimensional 
design and analysis methods we have been describing. The idea would 
be to assign a pressure distribution and then calculate a correspond- 
ing wing shape even in the case of transonic flow. In three 
dimensions the method of complex characteristics must be abandoned in 
favor of a scheme based on the addition of artificial viscosity in an 
appropriate coordinate system (see Volume II) . It seems likely that 
through control of an artificial viscosity term smearing- discontinui- 
ties adequately, flows that nearly fit a given pressure distribution 
and are nearly shockless might be calculated. There is little reason 
to suppose that designs based on such a procedure would be inferior in 
their overall reduction of shock losses to supercritical wings devel- 
oped from perfectly shockless flow. 

Mathematical tools are available to attack the kind of free 
boiHidary problem in three-dimensional space that we are concerned with 
here [4] . As a start in the right direction, an alternative airfoil 
design code should be developed that would compete v;ith our method of 
complex characteristics in two dimensions (of. [6]). 
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VI. USERS MANUMi FOR THE DESIGN CODE 


1. Introduction 

This chapter is intended for users of the new design program. It 
is essentially independent of the material discussed earlier. After 
studying it readers should he able to run the program effectively. 

The code, written in Fortran IV, has been run on the CDC 6600 at 
the Courant Institute to design isolated airfoils and compressor and 
turbine cascades. The isolated airfoils are easier to handle because 
fewer parameters are involved. A typical run at MRR = 1, KFC = 32 and 
NI = 3 (see Section 7} requires 135K octal core storage and 5 or 7 
minutes CP time for an airfoil or cascade respectively. 

To compute a flow the user must provide certain information, such 
as the free stream Mach number and flow speeds along the airfoil 
surface. This information is put on two data files called TAPE? and 
TAPES. These files may be either disk files or punched cards. The 
program conputes an inviscid flow based on the input. At the discre- 
tion of the user the resulting profile can be designed to have an open 
tail so that a boundary layer correction can be subtracted off. The 
results are given as printed output and Calcomp plots. 

2. The Input Deck 

The input for the design program consists of two data files, 

TAPE? and TAPE3. TAPE3 contains points specifying the speed g as a 
function of the arc length s along the airfoil measured from the 
lower surface trailing edge to the upper surface trailing edge- All 
other prescribed parameters are on TAPE? . The names and meanings of 
all input parameters are listed in a glossary, see Section 7. 
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A. TAPE? 

TAPE? uses a free form data "input format , i*e. each, parameter is 
specified by use of an 80 column punched card containing the expres- 
sion 

NAME=VALUE 

NAME is the name of the parameter as listed in the glossary and VALUE 
is the numerical value assigned to it. Blanks are ignored and mode 
conversion (e,g. floating point to fixed point) is automatic. For a 
complex variable two values must be specified; they are separated by 
a comma. More than one parameter may be specified on a single card; 
then a $ or ; must be used as a separator. The data on TAPE? must end 
with a card of the form 

END= 

Any parameters not explicitly prescribed will take on their default 
values . The printed listing of TAPE? which appears on the output is 
in correct format for use as input to regenerate the run. 

Most of the TAPE? parameters are easily chosen and need not be 
discussed. A valid flow is computed regardless of the number NI of 
iterations of the map function, although at least three iterations 
(NI>3) are usually required to achieve an accurate fit to a given 
pressure distribution. Parameters such as MACH and the complex con- 
stants and Cq require special attention. 

Apart from their other functions, and are used to distin- 
'guish between the airf’oiT 'aSTd'“cascade cases, ^en the program 

computes an isolated airfoil. P?hen it computes a cascade. This 

is consistent with the notion that an isolated airfoil can be visual- 
ized as a cascade with an infinite gap-to-chord ratio and identical 
inlet and exit velocities. Throughout the manual we will discuss both 
situations simultaneously, allowing the context to determine which 
statements apply to a given case. 

We now consider the hodograph plane, or complex characteristic 
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^-plane, see Figure 12, page 59. Shown on this graph are the unit 
circle (the subsonic portion maps onto the profile) , the subsonic and 
supersonic integration paths , the sonic line/locus , and points of 
particular significance, namely the nose, the tail, the singularities 
and , the initial point for integration , and the equally 

spaced mesh points along [f[ 1 used to^ determine the flow. The 

unit circle can be mapped onto itself conformally in such a way that 
a given pair of points, one on the boundary and one in the interior, 
have as their respective images a second pair of prescribed points . 

In practice this means that there is more than one configuration in 
the hodograph plane corresponding to a given flow in the physical 
plane. We always locate the leading edge stagnation point at | = -1, 
but the location of one of the singularities and which will 

A D 

yield prescribed velocities at infinity remains arbitrary. We use 
MACH, the Mach number corresponding to speed g = 1, to normalize the 
mapping- In general, MACH should be chosen so that the supersonic 
zone is of adequate size. Increasing it will raise the Mach numbers 
throughout the entire flow, including the free stream Mach number. 

Now consider the three complex parameters 5^/ &nd addi- 

tion to making the distinction between isolated airfoils and cascades, 
and are important for the design of cascades because their 
values determine respectively the exit and inlet velocities as well 
as the gap-to-chord ratio. Moreover, together with they are of 
critical importance for purely computational reasons, since they 
determine the location of two important branch cuts. The first cut, 
indicated in the diagram, is the line segment from to The 
second is the ray starting at and passing through 5^. The position 
of both cuts is of some consequence, since a supersonic integration 
path which inadvertently crosses one of them will cause the program 
to generate incorrect results and fail, terminating V7ith a diagnostic. 
The isolated airfoil case is simpler because the first cut disappears 
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Because th.e program bases its choice of integration paths on the 
location of and , it may be helpful for the user to under- 

■fx i3 U 

stand how these decisions are made. The next few paragraphs of this 
section give a brief explanation of that process . 

Let us first consider the subsonic paths and assume and 

are known. To solve for the profile, the program integrates along 
paths which pass through 5^ and 5^ and go along the unit circle. 
The paths are modified to avoid crossing the branch cuts mentioned 
above. To achieve efficiency and accuracy, the unit circle is 
divided into NP arcs and an Integration path is constructed for each 
arc. 

The procedure is first to choose NP points P^ on the unit circle. 
Second a circle S2 of radius 1 about is constructed. Note 
that it is necessary to have near 5p, f in practice we have taken 
.05 £ I "" — .15. For each on the unit circle there will be 

a point p^ on the circle determined by the intersection of the line 
from P. to Iq. An arc opposite on is omitted to avoid the branch 
cut from through | . Thus each subsonic path consists of (1) the 

Crf id 

polygonal line from to / (2) an arc along 9, from to p. 

A id L. U- 1 

chosen to avoid the branch cut, (3) the line segment from p^ to P^ and 
(4) an arc on the unit circle from P^ to 

A few comments are now in order. The choice of paths is arranged 
to- insure that, without -placing unnecessary -restrictions -on the choice 
of 5 and C-n r we either avoid crossing the branch cuts or, being 

A id 

aware of their position, correct the computation when we do so. The 
necessary corrections are made to the computation for subsonic paths. 
Furthermore, any of the line segments between p^ and P^ will be 
defo 2 ntied if they come too close to ^ . 

.A 

Arcs of the unit circle outside the subsonic domain are still 
used in the computation, but they are distinguished ’by two asymmetric 
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polygonal lines connecting them to the circle fi. These supersonic 
paths are more troublesome because the code has not been designed to 
take the branch cuts into consideration. The computation terminates 
with a diagnostic if such a path crosses a cut. 

In choosing the paths the points at which the sonic line inter- 
sects the unit circle are determined. When there are no such inter- 
sections, i.e. when MACH has a low value, the flow is entirely sub- 
sonic and supersonic paths are not needed. If MACH becomes higher, 
one or more supersonic zones may appear. Good resolution is only 
obtained when these zones are large enough to be well-defined numeri- 
cally, so results are poor for flow that is just barely supersonic. 
Calculation of the supersonic portion of the flow is based on a pair 
of asymmetric supersonic paths pictured in the diagram that contain 
arcs of the circle |5| = 1.04. 

It is up to the user to choose MACH so that the 

supersonic paths do not cross any outs, although the program may it- 

2 

self deform the paths to avoid singular points at which M =1. It is 
often helpful to start with a low value of I4ACH, thus .eliminating the 
supersonic paths altogether until 5^, and are properly 
positioned. Perhaps the best way to avoid crossing cuts unnecessarily 
is to allow to assume its default value. If this does not suffice, 
another possibility is to input a pure imaginary value of / which 
instructs the code to place at a point on the circle of radius 
jlm{?|^ - Cg} I around such that and become colinear and 

all cuts coincide. 

We observe that in the design code the supersonic paths can be 
altered so as to extend the range of the method by changing the calls 
to the subroutine PATH from the subroutine GTPATH. 
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B. TAPES 

The data on TAPES appears in two formats . The first card has the 
value of NIK, the number of points defining the input speed distribu- 
tion or, more simply, the number of cards to follow on this data file. 
NIN should be a right justified Integer constant appearing in the 
first five columns of the card (Fortran format (F5.0)). 

The remaining NIN cards contain the arc length s in columns 1-20 
and the corresponding flow speed q, or its negative, in columns 21-40 
(Fortran format (2E20.8)). Note that q is input negative for points 
of the lower surface and positive for upper surface points. Also, it 
is assumed that s runs along the airfoil monotonically increasing from 
the lower surface tail to the upper surface tail. Hov?ever, the user 
may choose any values of s he wishes for the beginning and end points. 
The program will rescale the coordinates so that s varies from -lto+1. 

In general the input data for TAPE3 will depend on the particular 
airfoil the user intends to design. Sometimes a minor difficulty 
arises when spline interpolation results in a bad fit to the data. 

This can be overcome by inserting more data points in the region of 
difficulty. 

Modifications of the input data on TAPE3 can also be made by means 
of bump functions described in the glossary. They facilitate chang- 
ing the pressure distribution at a few points without introdu'cing 
—undesirable -oscillations that^.often-.occur in the splines, defined -by - - 
the code. 

3 , Closure 

As we mentioned earlier, the user may choose to design an airfoil 
with an open trailing edge, as in Figure 13, page 60. In that case 
we measure the amount of separation of the trailing edge by the quan- 
tities DX and DY, the respective differences between the x and y 
coordinates of the upper and lower surface end points. In general' it 


r 
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is desirable that after a boundary layer correction has been made the 
separation be about .71 of chord for an isolated airfoil and 2% of 
chord for a cascade. In any case, DX and DY should be chosen so that 
the line segment connecting the two end points at the trailing edge is 
perpendicular to both surfaces there. We note that, as might be 
expected, the opening of the trailing edge is coupled to the thickness 
-chord ratio. 

Adjusting either of the parameters DX and DY is a_ rather straight- 
forward process. In fact, we can raise or lower DX by simply rescal- 
ing s on the upper surface or the lower surface separately. In other 
words, too large (or too small) a DX indicates that there is too much 
(or too little) arc length on the upper surface as opposed to the 
lower surface. For small discrepancies, we can remedy the situation 
by decreasing (or increasing) the s coordinate at the last few points 
of the upper surface input speed distribution (TAPES) or by doing the 
opposite to the first few points from the trailing edge on the lower 
surface. 

DY, on the other hand, may be raised or lowered by lowering or 
raising the presssure coefficient at the trailing edge, which in 
practice means raising or lowering q at the first and last points of 
the input speed distribution (TAPE3) . It may become necessary, how- 
ever, to move several values on the upper or lower surface as a unit 
in order to control boundary layer separation. 

4 . Achieving a Good Design 

We shall describe a collection of techniques found useful in 
designing airfoils in the past. Several parameters not related to 
the boundary layer correction will be discussed here, although we have 
made no attempt to be exhaustive. It is assumed that the user already 
has some knowledge of the relationship between specific design con- 
straints and the speed function along the airfoil surface. We observe 
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that such relationships are similar to those for purely subsonic flov:. 
It is important to realize that many quantities are coupled, so that 
correcting one situation may cause difficulties with another. The 
user will have to learn which parameters to adjust first and at which 
stages in the design process to accept crude approximations to the 
ultimate goal. 

Suppose we are given the inlet and exit llach numbers and and 
the inlet and exit flow angles 0^ and These parameters are deter- 

mined^ for a fixed value of I4ACH, by the positions of 5^ and , which 
may be set in the following way. First the user should locate so 
that it yields roughly the desired ^2 and 62 t>ut is not too close to 
the unit circle . An important tool in this process is the plot of the 
curves of constant Mach number (see IPLT in Section 7) . Next, for 
fixed search for the position of which corresponds to and 6 ^^. 
Note that it is sometimes easier to start with a relatively low value 
of MACH so as to eliminate the supersonic paths. Then, after placing 
so that 9„ - 0 , and M - M are correct, we may bring M, and 6 , 
near their desired values by raising MACH to a higher value. The gap- 
to-chord ratio G/C is also involved in these considerations, since it 
depends on the magnitude of ] - 5^1 * Thus we can raise G/C by 
bringing S and ? closer together, which has an obvious effect on the 

A D 

velocities at infinity. 

The coefficient of lift is directly related to the area 
enclosed by the -pressure distribution curves . We can raise or lower 
the lift by moving the input speed distribution curves of the upper 
and lower surfaces farther apart or closer together. As we have 
observed before, the thickness-chord ratio T/C is coupled to the tail 
separation. However, It has a much stronger relationship to the 
radius of curvature of the leading edge, which itself depends on the 
derivative q' (s) of the input speed distribution at q = 0. Thus we 
can lower T/C by increasing the slope of the input curve q(s) near the 
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leading edge stagnation point. 

5. The Boundary Layer Correction. 

Since we have based the design program on inviscid theory, it Is 
necessary to make a boundary layer correction to allow for viscous 
effects. This is done by assuming that the computed streamlines 
delineate, not the airfoil Itself, but the flow outside the boundary 
layer . We then use the von Karman momentum equation- to compute the 
displacement thickness of the boundary layer, which we subtract off 
from the previously computed inviscid coordinates of the airfoil. Wo 
laminar boundary layer correction is made; instead, points of transi- 
tion are assigned and the turbulent boundary layer method of Wash and 
Macdonald is followed. This correction is suppressed in the code by 
setting RN = 0 . 

We emphasize how important it is in practice that the boundary 
layer not separate. To avoid separation we require that the Wash- 
Macdonald parameter SEP stay below the bound 

SEP £ .004 . 

In practice we have found it desirable to have SEP remain approximate- 
ly constant and near .003 along the upper surface close to the trail- 
ing edge. This can be achieved by adjusting the slope of the speed 
there. Airfoils satisfying this requirement generally meet their 
design specifications in wind tunnel testing and provide excellent 
performance at off-design conditions as well. 

Implementing the boundary layer correction is quite simple . Aside 
from the Reynolds number RJM, the user must specify TRANU and TRAWL, 
the X coordinates along the upper and lower surfaces at which transi- 
tion occurs, i.e. where the correction is to begin. The values of 
TRANU and of TEANL are chosen empirically. After the calculation is 
completed, both inviscid and corrected x, y coordinates of the airfoil 
are plotted and printed together with SEP and the momentum thickness 
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THETA. 

6. Error Messages 

Below we give a coEnplete list of error messages contained in the 
code and, where feasible, suggest procedures to use when they occur. 
Since most of the trouble arises in supersonic cases, a lower choice 
of MACH is often helpful when a run has terminated with a diagnostic. 

1. ATTH4PT TO CONTINUE RUN WITH WRONG RUN NUMBER 

2. AUTOMATION PATH IS TOO LONG 

Remedy: Lower MRP or increase GRID. 

3. ERROR IN CARD 

Remedy: Self-explanatory. 

4. MORE THAN INPUT CARDS NOT PERMITTED 

PROGRAM STOPPED IN READQS 

Remedy: User is limited to 300 data points, but is NIN too small? 

5. NEWTON ITERATION DID NOT CONVERGE AT ST= 

6 . NK = AND NT = ARB INCOMPATIBLE 

PROGRAM STOPPED IN CYCLE 

7. NO CONVERGENCE AT S= Xl= S(XI)-S= 

TROUBLE CALCULATING SONIC LINE, CHANGE MACH 

8. NON- ALPHABETIC CHARACTERS NOT ALLOWED IN VARIABLE NAMES 

9. NON-MONOTONIC ABSCISSA FOR SPLINE FIT 

PROGRAM STOPPED IN SUBROUTINE PSPLIF 

-10. NON:rMONOTONIC ABSCISSA FOR SELINE- F-IT 
PROGRAM STOPPED IN SUBROUTINE SPLIF 

11. AUTOMATED SUPERSONIC PATH CROSSES CUT FROM XIA TO XIB 

Reitiedy: The sector of automation paths enclosing ^ must 

A 

not intersect the sonic line. 

12, AUTOMATED SUPERSONIC PATH CROSSES CUT FROM XIC THROUGH XIB 

Remedy: Try default value of XIC or pure imaginary option. 
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13. SUPERSONIC PATH IS TOO LONG 

Remedy: Lower MRP or increase GRID. 

14. TOO MANY POINTS DEFINING THE AIRFOIL 
PROGRAI4 STOPPED IN BODYPT 

15. TOO MANY SUPERSONIC POINTS 

16. TRANSITION NOT FOUND — B0UND2iEY LAYER SKIPPED 

17. VARIABLE NAMED WAS NOT FOUND 

18. WT DID NOT CONVERGE, t-JT = 

19. NEWTON ITERATION FOR SONIC POINT DID NOT CONVERGE WELL 


7 . Glossary of TAPE? Parameters 

All TAPE? input parameters are listed below with the proper name, 
default value, definition, and usage. The order corresponds to the 
frequency of use in the examples we ran. In certain cases‘ we have 
written DEFAULT VALUE RECOMMENDED. The user is strongly advised to 
use the default values for those parameters, especially if there is 
any difficulty. 


Name 

Default 

Definition 

Usage 

RUN 

1 

Run number 

Abs(RUN) is the jun number, an iden- 
tification number for plotted and 
printed output. A negative value of 
RUN will produce a white paper plot 
on the CDC 6600 at the ERDA Mathe- 
matics and Computing Laboratory at 
New York University. 

NI 

1 

Number of 
iterations of 
map function 

Number of iteration cycles. If 
NI ^ 0 , no f lov7 cycles will be 
computed, but the s and q input 
will be plotted. 

MRP 

-1 

Mesh refinement 
parameter 

Controls the number of points on 
the grid, e.g. doubling it will cut 
the mesh spacing in half. If NI>1, 
an increase in MRP will only be 
done on the last iteration. MRP 
negative gives third order accuracy 
by use of a Richardson extrapola- 
tion. Thus, for example, MRP=-2 
will require as much core storage 
as MEP=4. 
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Name 

Default 

Definition 

Usage 

MACH 

.75 

Mach number at 
speed q = 1 

Determines the critical speed. MACH 
can be used to increase or decrease 
the size of the supersonic zone. It 
is related, but not equal, to the 
free stream Mach number. 

XIA 

0.03r -.12 

, location 

of logarithmic 
singularity 
determining 
exit Mach 
number and 
angle of flow 

The point in the ?-plane corres- 
ponding to the exit velocity (i.e. 
the hodograph image of x = +“) . To 
get an isolated airfoil, set 
XIA-XIB. For cascades xiA should 
lie inside a sector of automation 
paths V7hich does not meet the sonic 
line. 

DEFAULT VALUE RECOI4MENDED 
FOR ISOLATED AIRFOILS- 

XIB 

0,08, -.12 

, location 

of logarithmic 
singularity 
determining 
inlet Mach 
number and 
angle of f low 

The point in the ^-plane corres- 
ponding to the inlet velocity (i.e. 
the hodograph image of x = -«) . To 
get an isolated airfoil, set 
XIB=XIA. 

DEFAULT VALUE RECOMMENDED 
FOR ISOLATED AIRFOILS. 

XIC 

If XIA=XIB, 

XIC=XIA 

-,i-,li; 

if XIAfSXIB, 

XIC=XIB-.07 
- (XIA-XIB) 

/|xia-xib| 

r point 

determining 
characteristic 
initial plane 

Point of initiation of paths of 
integration. If XIC is pure imagi- 
nary then for XIA =XIB, 

XIC = XIA-|lm{XIC-XIA} 

and for xiA XIB, xic = XIB 

- 1 Im{xlC-XlB} 1 (XIA-XIB) / i XIA-XIB ] . 

DEFAULT VALUE RECOMMENDED. 

RN 

0. 

Reynolds 
number of the 
flow 

Set RN = 0 to suppress the boundary 
layer correction. 

TRANU 

.05 

Abscissa for 
transition on 
-upper surface 

The value of x (before rotation) at 
vrhich the turbulent boundary layer 
-integration -on- the upper surface 
Starts . 

TRANL 

.10 

Abscissa for 
transition on 
lower surface 

The value of x (before rotation) at 
which the turbulent boundary layer 
integration on the lower surface 
starts. 





























41 


Name Default 


Definition 


IPLT 



Index for plot 
control 


20 . 





A two digit number which controls 
the plotting. The first digit 
controls the plot of the physical 
plane: 

0 no plot generated 

1 airfoil and Mach distribution 

2 same as 1 with airfoil higher 
3-4 same as 1-2 with characteristics 
5-9 same as 0-4 but with pressure 

plot instead of Mach plot. 

The last digit controls the plot of 
the 5~pl&te : 

0 no plot generated 
1-4 sonic locus, nodes on circle, 
points nose, tail and 

integration paths are plotted 
5-9 same as 0-4 with contour curves 
q = constant- 


Size in inches of the large airfoil 
plot. If PLTSZ=0, no plot will be 
generated. If PLTSZ<0, no symbols 
will be plotted at calculated 
points . 


Number of The degree of the polynomial part of 

Fourier coeffi- the mapping function. It should 
cients not exceed NP/2, 


Plot size 




Number of 
functions 






UI4P None 


Number of 

automation 

paths 


Grid spacing 
parameter 


Bump vector 
with five 
components 
separated 
by commas 


DEFAULT VALUE RECOMMENDED. 


The number of functions in the 
series representing 4> ^nd i|). Equal 
to the number of nodes on the 
circle |?j=l. If NF<0 , NF will be 
set to 2NFC. 

DEFAULT VALUE REC014MENDED . 


The unit circle is divided into NP 
arcs for the integration. NP must 
be an even integer that divides NFC 
and does not exceed 16 . 

DEFAULT VALUE RECOMMENDED. 


GRID divided by MRP is the maximum 
mesh size. 

DEFAULT VALUE RECOMI4ENDED . 


The vector BUMP=FMAX,XL,XR,RAT,ALP 
is used to modify, the input speed 
q(s) in the interval XL<s<XR by the 

factor 1 + PMAX[1 - , where 

^ s - XL - RAT(XR - XL) 

(1- 2RAT) (S- XL) + RATtXR - XL) 

Ten such bumps are allowed. 






















Name 

Default 

Definition 

Usage 

GAMMA 


Gas constant 

GAMMA is 1.4 for air,' and 1.07 for 
uranium iiexaf luorlde. 

NPTS 

201 

Number of 
points 

Number of nodes in the spline 
defining the input distribution. 

DEFAULT VALUE HECOMMEMDED. 

KONE 

.5 

1 

i 

^1 

Used along with K 2 to extend h{g) . 
DEFAULT VALUE REC0I4MENDED . 

KTWO 

1.0 

K2 

Used along with to extend h(q) • 

DEFAULT VALUE RECOMMENDED. 

KTHR 

1 1.0 

^3 

Used for boundary condition along 
the transonic arc of the circle. 


DEFAULT VALUE RECOMI-IENDED . 
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8* Glossary of Output Parameters 

All output pareaneters are listed below by symbol and. name and, 
where different from common practice, the partxcular way in which they 
have been defined in the program is specified. 


‘ Symbol 


Meaning 

AKG 

Flow angle 

Angle of tangent along airfoil- 


Coefficient 
of lift 

Standard lift coefficient* 

DEL TH 

Turning 

angle 

The change in flow angle from x = to 

X = +<». 

Diffusion 

factor 

Diffusion 

factor 

Standard measure of performance of 
compressor blades. 

DX 

DX 

The change in x coordinate (before boundary 
layer correction) from the lower surface to 
the upper surface at the trailing edge. 

DY 

DY 

The change in y coordinate (before boundary 
layer correction) from the lower surface to 
the upper surface at the trailing edge. 


Exit flow 
angle 

The clockwise angle between the vertical 
and the flow at x = +». 

G/C 

Gap- to- chord 
ratio 

Vertical distance between blades divided 
by chord length. 

Inlet flow 
angle 

Inlet flow 
angle 

The clockwise angle between the vertical 
and the flow at x = 

K 

Curvature 

Curvature of the airfoil at a given point 
(before the boundary layer correction) . 

Loss coef- 
ficient 

Loss 

coefficient 

Loss coefficient computed from boundary 
layer correction. 

M 

Free stream 
Mach number 

Mach number at infinity. 

Ml 

Inlet Mach 
number 

Mach number at x = — 

^2 

Exit Mach 
number 

Mach number at x = +». 

Profile 
drag coef- 
ficient 

Profile 

drag 

coefficient 

Drag coefficient computed from boundary 
layer correction. 
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Symbol 


SEP 


name 


Nash- 

Macdonald 

separation 

parameter 


|T/C 


Thickness- 

to-chord 

ratio 


THETA 


Momentum 
thickness 6 


TRANSITION 


Transition 

poxnt 


X 


Horizontal 

airfoil 

coordinate 


XS 


Corrected 

horizontal 

airfoil 

coordinate 


Vertical 

airfoil 

coord.inate 


Corrected 

vertical 

airfoil 

coordinate 


Meaning 

SEP = - (0*dq)/<q ds) - 

The boundary layer is predicated to 
separate for SEP > .004. 


Difference of ordinates divided by 
difference of abscissas . 


Momentum thickness of the boundary layer. 


Point on the upper (or lower) surface at 
which the turbulent boundary layer 
correction begins. 


X coordinate of the airfoil before the 
boundary layer correction. 


X coordinate of the airfoil after the 
boundary layer correction. 


y coordinate of the airfoil before the 
boundary layer correction. 


y coordinate of the airfoil after the 
boundary layer correction. 























VII. PLOTS AND TABLES OF RESULTS 

1. Airfoils Designed Using the New Code 

Below we present several airfoils that were designed by use of 
the new code K. 
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A. Figures 1-7 

Figure 2 represents a modification of the original supercritical 
wing section designed empirically by Whitcomb [33] . The input for 
q(s) shown in Figure 1 was developed from the experimental pressure 
distribution presented in Figure 24, We have eliminated much of the 
aft loading by shifting the lower surface pressure curve in the direc- 
tion of higher speeds, thus decreasing the area enclosed. Also, the 
upper surface pressure distribution has been altered to meet the 
Stratford criterion. The shock that appeared in the experiment was 
eliminated simply by omitting several subsonic data points . The com- 
plex characteristic hodograph plane for the shockless design calcula- 
tion is presented in Figure 3 . 

Figures 4 and 5 show a case designed for a rather low lift coef- 
ficient. Figures 6 and 7 present the case of a perfectly symmetric 
airfoil with two supersonic zones and zero lift. In these illustra- 
tive examples it is important to look at the geometry of the Mach^ 
lines in the physical plane and the integration paths in the hodo- 
graph plane. We note that if the parameter MACH is gradually increas- 
ed while the rest of the input is held fixed, limiting lines begin to 
appear in the flow and then later the supersonic paths of integration 
cross branch cuts causing the code to fail (see Section 2 of Chapter 
VI) . 
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- INPUT 
+ OUTPUT 



FIGURE 2. MODIFIED WHITCOMB WING SECTION 


[9 



FIGURE 3. COMPLEX CHARACTERISTIC HODOGRAPH PLANE 






M^.820 CL= .189 DX= .000 DY= .020 T/C=.100 


FIGURE 5. HODOGRAPH PLANE WITH LEVEL CURVES OF M 





Mr. 831 CLr .000 DXr-.OOO DYr .021 T/Cr.ilO 

FIGURE 7. PATHS OF INTEGRATION FOR SYMMETRIC AIRFOIL 
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Figures 8-13 

The input speed distribution for the compressor cascade shown in 
figures 8 and 9 was taken from an example prepared, using an earlier 
version of the design code [23] , for Pratt and Whitney Aircraft and 
tested by the DFVLR in Germany (see also Figure 31) , - Observe that the 
Fourier series for the map function fails to approximate the infinite 
gradient accurately on the lower surface at the trailing edge. Thus 
airfoils with such extreme aft loading are not always reproduced 
successfully using the present code. 

The objective in the case of Figures 10-13 was to design a 
compressor cascade with relatively little aft loading and to achieve a 
monotonically decreasing distribution of thickness near the trailing 
edge. We arrived at a tail thickness of about 2% after the boundary 
layer subtraction, and the trailing edge is perpendicular to the 
upper and lower surfaces. Note that a Stratford pressure distribution 
has been used, so that SEP is very nearly constant along the upper 
surface near the trailing edge. The four figures illustrate the 
complete plot output of a typical run of the design code. For this 
run the printed output has been listed following the figures. It can 
serve as a test case for users interested in checking out the code. 
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- INPUT 
+ OUTPUT 



Ml=.771 M2=.484 DEL TH= 24.58 G/C=1.20 

FIGURE S. COMPRESSOR AIRFOIL BASED ON PRATT AND WHITNEY EXAMPLE 
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- 1.20 



M13.771 M2=-.^84 DEL TH= 2^-53 G/C=l .20 

FIGURE 9. HODOGRAPH PLANE FOR PRATT AND WHITNEY CASCADE 




INPUT SPEED DISTRIBUTION 


FIGURE 10. INPUT q(s) FOR CASCADE TEST CASE 



+ OUTPUT 



Ml=.720 M2=.484 DEL TH= 21 .59 G/C=l .20 


FIGURE n. TEST CASE CASCADE AIRFOIL 
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Ml=.720 M2:=.H84 DEL TH= 21 .59 G/Crl.2Q 

FIGURE 12. HODOGRAPH PLANE FOR TEST CASE 
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BEGIN EXECUTION OF RUN-339 


TAPE3 = INPUT 


CARO 

S-INPUT 

Q-INPUT 

S-USEO 

Q-USED 

1 

-.010000 

-.821000 

-1.000000 

821000 

2 

. 155222 

-.756992 

-.893991 

-.756992 

3 

.509988 

-.717715 

-.519099 

-.717715 

A 

.751306 

-.795809 

-.280913 

-.795809 

5 

.820327 

-.838132 

-.215719 

-.838132 

6 

.907617 

-.809813 

-.133271 

-.689813 

7 

.936237 

-.905578 

-.106238 

-.905578 

8 

.969321 

-.922989 

-.079711 

-.922989 

9 

.985000 

-.925500 

-.060179 

-.925500 

10 

1.002000 

-.890000 

-.099122 

-.890000 

11 

1.010010 

-.809959 

-.036556 

-.809959 

12 

1.017092 

-.595987 

-.029919 

-.595987 

13 

1.026123 

0.000000 

-.021337 

0,000000 

lA 

1.039320 

. 572192 

-.013595 

.572192 

15 

1.091325 

.996973 

-.006978 

.996973 

16 

1.052691 

1 ,361805 

.003997 

1.361805 

17 

1.069907 

1.571583 

.019597 

1.571583 

18 

1,090957 

1.722799 

.039930 

1.722799 

19 

1.115999 

1.782170 

.063508 

1.782170 

20 

1. 191710 

1.797027 

. 1 3 50 6 8 

1.797027 

21 

1.256062 

1 .790071 

.195851 

1.790071 

22 

1.352135 

1. 763669 

.286596 

1*763669 

23 

1,991292 

1.665859 

.370761 

1.665859 

29 

1.669993 

1.196000 

.586355 

1.196000 

25 

1.902319 

.911000 

.806269 

,911000 

26 

2.107925 

.821000 

1 .000000 

,821000 
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TRANSONIC 

CASCADE 

OESIGhi RUN 339 



77/10/03 



TAPE7*1KPUT 




RUN 

=-3 39 

5 

MRP 

X. 

-1 

MACH 

= .600 

f 

RN 


1.0E6 

TRANU 

» .25 

j 

TRANL 


♦ 30 

KQNE 

= .30 

7 

KTWQ 


.50 

KTHR 

= 1.00 

y 

NPTS 

= 

201 

NF 

= 128 

7 

NFC 

w 

64 

GAMMA 

= 1.40 

J 

GRID 

= 

.08 

NI 

= 3 

} 

NP 

= 

8 

PLTSZ 

= -8.00 

» 

/ 

IPLT 

a 

87 

XIA = .820 

, .250 

7 

XIB - -.420 

t 

-.490 


XIC = -*520 , ■’♦^90 


CYCLE 

HINLET 

HEXIT 

RESIDUAL 

DX 

DY 

1 

.696 

.475 

-.170E+00 

.05390 

.06203 

2 

.715 

.482 

-.674E-01 

.00893 

.03805 

3 

.720 

.484 

-.268E-01 

-.01243 

.03214 


LONGEST AUTOMATION PATH HAS 121 POINTS 
AUTOMATION CP TIME IS 821.5~SECONOS — 

LONGEST SUPERSONIC PATH HAS 195 POINTS 
SUPERSONIC CP TIME IS A3. 4 SECONDS 
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THICKNESS/CHORO= .1018,’ 
COEFFICIENT OF LIFT=1.3072 
OIFFUSIDN FACTOR^ »570 
GAP/ChORD= l.ZOl 


INLET 

MACH 

NUHBER= 

.720 

INLET FLOW 

ANGLE* 

A4.08 

EXIT 

MACH 

NUMBER= 

.'tSA 

EXIT FLOW 

ANGLE* 

65.67 




TURNING ANGLE* 

21.59 






0X=-,012A 

DY= .0321 




COORDINATES FROM LOWER SURFACE TAIL TO UPPER SURFACE TAIL 


X 

Y 

ANG 

K 

M 

THETA 

SEP 

XS 

YS 

8718 

.4874 

21.7 

-.16 

.4860 

.00138 

-.00085 

.8710 

.4892 

3698 

.4866 

21,8 

,17 

.4 846 

.00138 

-.00005 

.8691 

.4884 

8441 

. 4764 

21.5 

-.02 

.4760 

.00139 

-.00080 

.8434 

,4783 

7899 

.4551 

21.6 

-.17 

.4616 

.00139 

-.00066 

.7891 

.4569 

7196 

.4268 

22.3 

-.30 

.4461 

.00137 

-.00054 

.7188 

.4287 

6475 

.3963 

23.7 

-.40 

,4336 

.00132 

-.00040 

.6467 

.3981 

5818 

.3664 

25.3 

-.47 

. 4257 

.00123 

-.00024 

.5810 

.3681 

5246 

.3383 

27.1 

-.51 

.4219 

.00113 

-.00010 

.5238 

.3396 

4756 

.3125 

28.7 

-.53 

.4212 

.00101 

.00002 ' 

.4749 

.3138 

4333 

.2889 

30, 1 

-.54 

.4227 

.00090 

.00011 

.4331 

.2901' 

3980 

.267 5 

31.4 

-.53 

,4257 

.00079 

.00017 

.3973 

.2686 

3669 

♦ 2481 

32,5 

-.52 

.4296 

.00068 

.00021 

.3663 

.24 90 

3398 

.2305 

33,5 

-.50 

.4343 

.00058 

.00022 

.3393 

.2313 

3160 

.2145 

34.3 

-.48 

.4394 

.00049 

.00023 

.3155 

.2151 

29 49 

.1998 

35.1 

-.45 

.4448 



.2949 

. 1998 

2760 

. 1864 

35.6 

-.42 

.4504 

TRANSITION 

.2760 

.1864 

25 90 

, 1741 

36.1 

-.38 

.4561 



.2590 

, 1741 

2435 

.1628 

36.6 

-.33 

.4618 



.2435 

.1628 

2295 

. 1523 

36.9 

-.28 

.4675 



.2295 

.1523 

2166 

,1426 

37.2 

-.23 

.4731 



.2166 

.1426 

2048 

.1336 

37, 3 

-.17 

.4786 



.2048 

.1336 

1938 

.1251 

37.5 

-.11 

.4839 



.1938 

.1251 

1835 

.1173 

37.6 

-.06 

.4890 



.1835 

.1173 

1740 

.1099 

37,6 

-.01 

.4938 



.1740 

.1099 

1650 

.1030 

37.6 

.04 

.4984 



.1650 

,1030 

1565 

.0965 

37.6 

.09 

.5026 



.1565 

.0965 

1485 

.0903 

37.5 

.13 

.5066 



.1485 

,0903 

1409 

.0845 

37.5 

.18 

.5103 



.1409 

.0845 

1337 

.0790 

37,4 

.22 

.5138 



.1337 

.0790 

1268 

.0730 

37.3 

.26 

,5171 



.1268 

.0738 

,1203 

.0688 

37.1 

,30 

.5202 



.1203 

.0688 

1140 

.0640 

37.0 

.35 

.5230 



.1140 

,0640 

,1079 

.0595 

36,9 

. 40 

.52 57 



.1079 

.0595 

1021 

.0551 

36.7 

.44 

,5282 



.1021 

.0551 

0965 

.0510 

36,5 

.49 

.5306 



.0965 

.0510 

,0911 

.0470 

36, 3 

.54 

.5328 



.0911 

.0470 

,0659 

.0432 

36.1 

.61 

.5350 



.08 59 

,0432 

0308 

.0395 

35,9 

.72 

,5373 



.0806 

.0395 
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X 

Y 

AMG 

K 


THETA SEP XS 

YS 

.0760 

.0360 

35.7 

.37 

.5396 

.0760 

.0360 

.0712 

,0326 

35.4 

1.08 

,5420 

.0712 

.0326 

.0666 

,0293 

35.0 

1.31 

.5444 

.0666 

.0293 

.0622 

.0262 

34,6 

1.59 

,5467 

.0622 

.0262 

,0579 

.0233 

34.1 

1,87 

.5486 

.0579 

.0233 

.0536 

.0204 

33.6 

2.20 

.5502 

.0536 

.0204 

.0496 

.0178 

33.0 

2.55 

.5514 

.0496 

,0178 

.0456 

.0152 

32.3 

3.03 

.5522 

.0456 

.0152 

.0417 

,0128 

31.5 

3.66 

.5526 

.0417 

,0128 

.0379 

.0105 

30.6 

4.59 

.5528 

.0379 

.0105 

.0343 

, 0084 

29.5 

5.86 

.5525 

.0343 

.0084 

♦ 0307 

.0064 

28,1 

7.63 

,5513 

.0307 

.0064 

.0272 

.0047 

26.4 

9.76 

.5482 

, 0272 

.0047 

.0238 

,0031 

24 , 3 

12.58 

,5422 

.0238 

.0031 

. 0206 

.0017 

21.7 

15.99 

,5319 

.020 6 

.0017 

.0174 

.0005 

18.6 

21.01 

.5160 

,0174 

.0005 

.0143 

-.0004 

14.7 

27.79 

.4928 

.0143 

-.0004 

.0113 

-.0011 

9,8 

38.00 

.4589 

.0113 

-.0011 

.0084 

-.0014 

3.4 

49,33 

.4094 

. 0084 

-.0014 

.0055 

-.0014 

- 4.7 

62.25 

.3389 

.0055 

-.0014 

.0028 

-.0010 

- 14.5 

57.44 

. 2423 

.0028 

-.0010 

0.0000 

0,0000 

- 24.2 

62.53 

.1261 

0.0000 

0.0000 

-.0050 

.0030 

- 45,2 

60.83 

.1336 

-.0050 

.0030 

-.0070 

,0056 

- 56.9 

51.99 

,2798 

-.0070 

.0056 

-.0087 

.0087 

- 67.3 

41.52 

,4185 

-♦0087 

% 0087 

-.0099 

.0127 

- 77.1 

36 . 77 

.5571 

-.0099 

..0127 

-. 0105 

.0171 

- 86,6 

27.51 

.6 877 

-.0105 

.0171 

-.0104 

.0225 

- 95,1 

20.81 

.8000 

-.0104 

.0225 

-. 0096 

.0283 

- 102.1 

12.93 

,8855 

-.0096 

.0283 

-.0076 

.0355 

- 107.6 

11.11 

.9539 

-.0076 

.0355 

-.0030 

♦ 0471 

- 115.6 

7.77 

1 . 1-179 

-.0030 

.0471 

♦ 0017 

♦ 0560 

- 120.0 

4.91 

1.1745 

,0017 

.0560 

. 0082 

.0664 

- 123.5 

3,23 

1.2020 

.0082 

.0664 

.0164 

.0781 

- 126 . 1 

2 . 26 

1.2096 

.0164 

-0781 

.0263 

.0911 

- 128.2 

1 .70 

1,2080 

.0263 

.0911 

.0378 

.1053 

- 130.0 

1.36 

1.2033 

.0378 

.1053 

.0511 

. 1206 

- 131.6 

1,16 

1.1982 

.0511 

.1206 

.0658 

.1367 

- 133.1 

1,04 

1,1941 

.0653 

.1357 

.0815 

.1532 

- 134.4 

.97 

1.1912 

.0815 

.1532 

.0978 

.1694 

- 135.7 

.94 

1.1895 

.0978 

.1694 

.1139 

.1848 

- 136,9 

,93 

1.1805 

.1139 

.1848 

.1294 

.1991 

- 138.0 

.95 

1.1677 

.1294 

.1991 

.1441 

.2120 

- 139.1 

.98 

1.1866 

.1441 

.2120 

,1577 

.2237 

’^- 140 . 1 

1.02 

1.1849 

" ,1577 

.2237 

.1703 

.2340 

t 141 . 0 . 

1.08 

1.1825 

.1703 

.2340 

. 1817 

,24 31 

- 141.9 

1.14 

1.1791 

.1817 

.2431 

.1921 

.2511 

- 142.8 

1.21 

1.1748 

. 1921 

.2511 

,2016 

.2582 

- 143.6 

1.28 

1.1697 

.2016 

.2582 

.2103 

.2645 

- 144,4 

1.35 

1.1638 

.2103 

.2645 

.2182 

.2701 

- 145.1 

1.44 

1.1570 

.2182 

.2701 

♦ 2256 

.2752 

- 145.9 

1.52 

1,1497 

,2256 

,2752 

.2324 

.2797 

- 146.6 

1.61 

1,1415 

.2324 

.2797 
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X 

Y 

ANG 

K 

M 

THETA 

SEP 

xs 

YS 

2387 

.2838 

-147.3 

1,70 

1.1323 



.2387 

.2833 

2446 

. 2876 

-148.0 

1.83 

1.1221 



.2446 

.2876 

.2502 

.2910 

-148,7 

1.91 

1.1113 

TRANSITION 

.2502 

.2910 

2553 

.2941 

-149.3 

2.02 

1,0985 



.2553 

,2941 

2601 

.2969 

-150.0 

2.14 

1.0825 

. 00026 

,00082 

.2604 

.2964 

2759 

.3056 

-152.2 

1.21 

.9832 

.00037 

,00112 

.2762 

,3049 

.2886 

.3122 

-153. 2 

1.35 

.9564 

, 00043 

.00075 

.2890 

.3114 

3009 

.3182 

-154.2 

1.27 

.9313 

. 00049 

.00086 

.3013 

.3174 

.31AI 

.3245 

-155.3 

1.26 

,9054 

.00055 

.00101 

.3145 

.3235 

3271 

.3303 

-156.3 

1.16 

.8790 

.00062 

.00118 

.3276 

.3292 

. 3409 

.3362 

-157.3 

1.09 

.8525 

.00070 

.00136 

.3414 

,3350 

3547 

.3419 

-158.2 

.97 

,8259 

,00079 

,00156 

.3553 

♦ 3404 

,3692 

.3475 

-159.1 

.86 

,7995 

.00089 

.00177 

.3698 

.3959 

► 3833 

.3530 

-159.9 

.71 

.7735 

.00101 

.00199 

.3845 

.3511 

, 3992 

.3585 

-160.5 

.57 

,7461 

.00114 

. 00220 

.3999 

.3564 

► 4148 

.3639 

-161.1 

,42 

.7236 

.00128 

.00239 

.4156 

.3615 

.4312 

.3695 

-161,5 

.28 

.7003 

.00144 

. 00254 

.4321 

.3667 

,4480 

.3750 

-161.8 

.16 

.6786 

.00161 

.00265 

,4490 

,3719 

.4655 

.3808 

-162.0 

.06 

.6586 

.00180 

.00270 

.4667 

.3773 

.4636 

.3867 

-162.0 

-.02 

.6402 

.00199 

.00272 

. 48 99 

.3823 

► 5025 

.3928 

-162.0 

-.08 

.6235 

.00219 

.00269 

,5039 

,3886 

.5221 

.3992 

-1-61.9 

-.12 

.6084 

. 00240 

.00262 

.5235 

.3947 

► 5 426 

.4059 

-161,8 

-.15 

.5947 

.00261 

.00252 

,5442 

.9011 

,5633 

.4130 

-161. 6 

-.16 

, 5823 

.00282 

.00239 

.5655 

.4079 

► 5062 

,4205 

-161,3 

-.16 

.5713 

♦ 00303 

.00225 

.5880 

.4151 

,6095 

.4284 

-161.1 

-.14 

. 5612 

.0032A 

.00214 

.6114 

.4228 

,6340 

.4360 

-160.9 

-.13 

,5519 

.00344 

.00208 

.6361 

.4310 

,6598 

. 4458 

-160.7 

-.12 

.5A30 

.00366 

.00209 

.6619 

.4396 

► 6870 

.4554 

-160.5 

-.13 

.5341 

.00390 

.00215 

.6894 

.9488 

,7156 

.4656 

-160.3 

-. 15 

. 5251 

.00415 

. 00222 

.7182 

,4585 

.7458 

.4765 

-160.0 

-.18 

.5162 

,00443 

.00228 

.7485 

.4689 

.7768 

.4878 

-159. 7 

-.23 

.5074 

.00472 

. 00232 

,7797 

.4798 

.8077 

.4994 

-159.2 

-.29 

.4993 

.00501 

.00231 

.8109 

.4910 

,8357 

,5102 

-158,7 

-.37 

.4925 

,00528 

,00223 

. 8391 

.5014 

.8554 

.5180 

-158. 3 

-.12 

.4882 

.00546 

.002 19 

.8590 

.5089 

.8593 

.5195 

-158.3 

0.00 

.4860 

.005^9 

.00219 

,8629 

.5104 


PROFILE DRAG COEFFICIENT = .0093 

LOSS COEFFICIENT = .0166 



66 


C. Figures 14-18 

In Figures 14 and 15 v?e give an example of a transonic turbine 
cascade that follows work of McIntyre [24]. The attempt is somewhat 
academic, but the calculated airfoil is perhaps of interest as a first 
vane. Major difficulties were encountered because of wide separation 
between 5^ and Sg t which is the result of high solidity and the 
difference between and M 2 - Unfortunately the supersonic zone 
cannot be located very far back on the airfoil because that makes the 
supersonic paths of integration cross branch cuts in a way that is 

t 

not permitted by the present version of the design code. 

In Figures 16-18 we present a more dramatic turbine cascade that 
might serve as a root section. The turning angle is IIS®, but the 
supersonic zone is very slender for the reasons just described. It is 
possible to modify the code to overcome these difficulties (see Sec- 
tion 3 of Chapter III and Section 2 of Chapter VI) . 




6S 



figure 75. HODOGRAPH PLANE 


FOR MCINTYRE EXAf-lPLE 


+ OUTPUT 



Ml=.mO M2=.667 DEL TH-1 18.28 G/C=1.16 


FIGURE 16. TURBINE CASCADE WITH LARGER TURNING ANGLE 
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FIGURE 17, PATHS OF INTEGRATION FOR TURBINE CASCADE 
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2 , Data from Analysis and Experiment 


A. Fig-uras 19-21 

Runs of the design and anlysis codes are compared in Figures 19-21. 
The airfoil used is that shown in Figure 2. In Figure 19 the results 
of a design run performed with MRP = 8 and NFC = 64 are compared with 
an NCF run of the analysis code on a grid of 160x30 points. The 
agreement is good enough to give some confidence that both codes have 
no bugs that might be physically significant. Similar agreement is 
seen in Figure 20, where the analysis calculation was performed on a 
mesh of 320x60 points. For this grid lack of uniqueness in the NCF 
solution led to questionable convergence (see Volume II) - Figure 21 
shows a comparison between the design and analysis computations when 
the boundary layer correction is made in both cases. The agreement is 
not quite as good as before, but does confirm that a Stratford pres- 
sure distribution near the trailing edge eliminates any significant 
loss of lift in passing from design to analysis. 





AIRFOIL 78-05-11 
— RNfiLYSIS 
-f DESIGN 


MxNr32Q*60 NCY= 5 NO VISCOSITY 
M-.781 flLP= - .11 CL=: .^79 CD=.Q0Q6 
Mr .781 RLPr 0.00 CLr .479 CDr.OOOO 


FIGURE 20. COMPARISON OF DESIGN AND ANALYSIS ON FINER GRID 



■*- + + + + + 



AIRFOIL 78-05-U M*N=16Q5k30 NCY= 10 R= 7 MILLION 
— THEORY M=-781 RLP= -31 CL= .>473 CD=,0085 
+ DESIGN M=.781 RLP= 0-00 CL= .H73 CD^.OOOO 


FIGURE 21 . DESIGN VERSUS ANALYSIS WITH BOUNDARY LAYER CORRECTION 
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B. Ficrures 22^25 

The analysis code is now in use by more than twenty industrial 
laboratories in the United States^ it is based on data obtained from 
wind tunnel tests for two of the airfoils we designed [2,12,19,20,21]. 
Additional computations with further airfoils seem to justify the use 
of semi -empirical procedures. In particular, we have also analyzed 
the original Whitcomb wing [331. The results are shown in Figures 
22-25, which compare the NCF and FCP methods [2,16]. 

Agreement between theory and experiment is typically excellent 
for subsonic cases even when there is heavy aft loading, as 
illustrated in Figure 22. Figure 24 shows a run for the Whitcomb 
airfoil where the shock location is not so well predicted by either 
the NCF or FCF method. However, agreement between test data and our 
analysis corrected for the boundary layer effect is generally not 
worse than it is in this case. Figure 25 is a high lift run where 
agreement with the NCF calculation remains good despite the fact that 
the flow is separated and nearing buffet. 



WHITCOMB WING M9«N=160>«30 NCY= 10 R- 7 MILLION 

— NCF THEORY M=,600 RLP^ .05 CLi: .495 CD=.0069 

-- FCF THEORY M=.600 fiLP= 0-00 CL^ -495 CD=.0074 

A EXPERIMENT M=.600 flLP= 1-00 CL= .495 CD=.Q082 

FIGURE 22. COMPARISON OF ANALYSIS AND EXPERIMENT FOR WHITCOMB WING 



NHITCQMB WING 
— NCF THEORY 
-- FCF THEORY 
A EXPERIMENT 


MxNr: 160*30 NCY= 10 R= 8 MILLION 
M=.80D ALP- -.15 CL= .613 CD=.0111 

M-.800 RLP=-1.40 CL= .613 CD- ,01 18 

M=.80Q RLP= 1.00 CL= .613 CD^-OllO 


FIGURE 23. ANALYSIS VERSUS EXPERIMENT AT THE DESIGN CONDITION 



IHITCOMB WING 
— NCF THEORY 
FCF THEORY 
A EXPERIMENT 


M^N=160*30 NCY= 10 R= 8 MILLION 
M=.780 nLP= -.28 CL= .576 CD=.Q089 

M=.780 RLPr -.28 CL:^ .576 CD=.Q107 

M=.780 RLP= 1.00 CL= .576 CD=.0098 


FIGURE 24. OFF-DESIGN CASE WITH TWO SHOCKS 



WHITCQMB WING 
— NCF THEORY 
-- FCF THEORY 
A EXPERIMENT 


MxN=16Q*30 NCY= 10 R= 7 MILLION 
M=.730 RLP= 3.57 CL=1 .315 CD=.0391 

M=.73Q flLP= l.SO CL=1.315 CD=.0341 

M=.730 RLP= 5.50 CL=1 -315 CD=.0630 


FIGURE 25. HIGH LIFT CASE NEAR BUFFET 



81 


Z. Figures 26-29 

Figures 26 and 27 show a comparison for airfoil 75-06-12 {see Vol- 
ume II) of drag rise curves at C = .4 and at C = .6 for our t'heory 
and the Ottawa wind tunnel tests [19,20,21] • Figures 28 and 29 present 
a similar comparison for airfoil 75-07-15 (see Volume II) of drag 
polars at M = .69 and at M = .76. For the higher lift coefficients 
and Mach niombers, which are associated with large supersonic zones 
and shock waves interacting with relatively thick turbulent boundary 
layer, the corrected NCF method is seen to give the best results (see 
Section 1 of Chapter iv) . In the lower range of and M, which 
corresponds to shocks nearer the leading edge where the boundary layer 
is thinner, there is a less decisive difference between the 
uncorrected NCF, corrected NCF and FCF methods. In general we prefer 
the corrected NCF results, which usually lie below the uncorrected 
NCF values but above the FCF values of the drag coefficient-. This is 
the method that has been included in our update of the analysis 


code H. 









A OTTflWn EXPERIMENT 
CORRECTED NCF 



DRRG POLHRS FOR FlIRFQIL 75-07-15 RT M=Q.69 


FIGURE 28. theoretical VERSUS EXPERIMENTAL DRAG POLARS 


DRRG POLflRS FOR AIRFOIL 75-07-15 AT M=0.76 


FIGURE 29. ACCURACY OF NCF METHOD FOR CALCULATING AIRFOIL PERFORMANCE 




D. Piqure 30 


Our supercritical airfoil 70-10-13 (see Volume II) was used by 
R. T. Jones in the design of a model of his oblique wing SST tested 
at the NASA 2imes Research Center. An identical test was performed, 
with a more conventional wing section. In both experiments transition 
was fixed by trips. For a straight configuration, i.e, with zero yaw, 
the data that were obtained provide an interesting experimental 
analysis of our design method. Figure 30 compares the maximum lift- 
drag ratios L/D for the two wings in their dependence on the Mach 
number M, In the transonic range the supercritical wing performed 
better , as was to be expected. More striking is the fact that for 
free stream Mach number M = . 6 , where the whole flow was subsonic , 
the maximum L/D for our airfoil was 7% higher than that for the com- 
parison section. This is the best evidence currently available that 
our trailing edge model with a Stratford pressure distribution 
delivers superior performance (see Section 1 of Chapter III). 
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— SUPERCRITICfiL WING 70-10-13 

— JONES COMPARISON WING 



MflCH NUMBER 


COMPARISON OF MAXIMUM LIFT/DRAG RATIO FOR A 
CONVENTIONAL WING AND A SUPERCRITICAL WING IN 
THREE DIMENSIONAL TRANSONIC FLOW WITHOUT YAW 


IGURE 30. JONES DATA DEMONSTRATING PERFORMANCE OF SUPERCRITICAL WING 
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E. Figure 31 

In 1974 vre designed a shockless compressor airfoil for the Pratt 
and Whitney Aircraft Division of United Technologies Corporation which 
has been tested by Harry Stepliens at a cascade wind tunnel of the 
DPVLR in Germany. The blade was so heavily aft loaded that its thick- 
ness f laired out to 3% at the trailing edge after thinning down to 
only 2% at about 90% of chord. A similar airfoil based on the same 
pressure distribution is shown in Figure 8. 

Pratt and Whitney Aircraft has given us permission to release the 
test data presented xn Figure 31. This shows the experimental pres- 
sure distribution most closely fitting design. Following work of 
David Ives and Harry Stephens, we have made a stream tube correction 
that reduces the experimental Mach numbers along the profile by .04, 
The discrepancy between theory and experiment seen near the leading 
edge is due to an error in the mode] geometry. Accurate reproduction 
in the test of the aft loading defined by the design calculation 
confirms the theory of the Stratford pressure distribution described 
in Section 1 of Chapter III. Excellent performance of the airfoil in 
transonic conditions bodes well for supercritical wing technology as 
a tool to improve the efficiency of turbomachinery. Also encouraging 
was the performance of the supercritical blade over a wide range of 
subsonic flow conditions, where the loss coefficients ran as low as 


.016 . 
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PRATT AND WHITNEY COMPRESSOR AIRFOIL R=l.l MILLION 

— THEORY Ml =.780 M2=.480 DEL TH=25.0 

A EXPERIMENT Ml=.775 M2=„SH4 DEL TH=25.5 L0SS=.0196 


FIGURE 31. STEPHENS EXPERIMENTAL TEST OF SHQCKLESS CASCADE 
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VIII. FORTRAN LISTINGS OF THE COOES 


1. THE NEW DESIGN CODE K 


PROGRAM DESIGN { OUTPUTj TAPE4=0UTPUT^7 APE 7= 102 Bj T AP E l* TAP E3 ) 

C CALLS SUBROUTINES FOR DESIGN CODE 
DIMENSION CAR0(61)*DX0Y(2) 

Common /c/ pi#grid*tol 

COMMON /D/ IIJ.IPLT# JJ>KBH*KK,LBH*MODE*MRP*NB*NC*NF*NJ»NK*NN*NP*NX 
COMMON /G/ Nl*N3*N^i,N7,Ml 
REAL HACHA*HACH£*MTA1L 

COMMON /K/ MACHA*HACHB*HTAIL*AMGLAf ANGLB*ANGLT*RN*TRANU* IRANI* NRN 
COMPLEX U* V*F1* F2*F3*S1»S2*S3* LAHDAP*LAHDAH*XI*ETA* TAU, PHI* PS I 
COMMON PHI (58 5*1)* SKA (390), PS 1 (585* 1)* SKB( 390 }* XI <565)* ETA< 56 5 >* 

1 UC585)*V{5e5}*Fl(585)*SlC585)*F2(585)*S2(5651*F3(585)*S3(585)* 

2 LAMOAP( 585)* LAMDAM( 585 »*TAU(585 ) 

DATA Nl/l/ * N3/3/ , NA/A/ , N7/7/ * KBM/16/ * L6M/585/ * MX/1/ 
CHANGE LBH WHEN CHANGING THE DIMENSION SIZE 
DIMENSION FOR SKA AND SKB IS 2+LBH/3 
THE TOLERANCE DEPENDS ON THE PRECISION 
TOL » I.E-IZ 
PI = ACDS(-1.) 

Ml = N1 
REWIND Ni 
ISW = 1 

C SET ISW*0 IF Ni IS EMPTY 
READ (NI) NRNX 
IF { EOF (NI ),NE.O. ) ISM = 0 
REWIND NI 
REWIND N3 
REMIND N7 

C READ IN THE TAPE? DATA 

10 READ (N7*1A0) (CARO(J) * J = 1*80) 

IF (INCOOE(CARD) .NE.O) GO TO 10 
C READ IN THE PRESSURE DISTRIBUTION 

IF CISW.EQ.O) CALL READQS (GAM* PHMN, NRN ) 
call TITLE 

IF ( (ISW.NefO)'rANDT*{-I-AB5lNRNX>.NE.TABS(NRN)-)-) GO- TO 120 
C MAKE IN.IXIAL GUESS OF PHI BASED ON INCOMPRESSIBLE FLOW 

C CHECK FOR EMPTY FILE. IF EMPTY 00 iNCOMPRESS'lB'LE GUESs'fOR PHI 

If (ISW, £0.0) CALL PHIINC (6AH*PHMN» 

C MRP IS NEGATIVE WHEN CHOOSING THE THIRD ORDER ACCURATE METHOD 

MRPOLD = MRP 
NI - HAX0(1*NJ) 

IF (NJ.LE.O) IPLT = -IABS(IPLT) 

C IF TAPEl IS NOT EMPTY AND NO CYCLES ARE REQUESTED THEN PLOT ONLY 

mode * -10 

KBM * HINOfKSH* (NF+D/3) 

IF (ISW*IPLT.LT.O) GO TO 110 
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WRITE (N^,160) 

SECOND IS A COC 6600 CENTRAL PROCESSOR TIMING ROUTINE 
CALL SECONDtTIME) 

MODE = 0 
DO 60 N = I,NI 
CALL CYCLEINZl 
MRP » 1 

IF (N.EQ.Nl) MRP = lABS(MRPOLD) 

Nl = Ml 

20 CALL INIT (XI»ETA»U»V1 
IF (IPLT.LT.O) GO TO 110 
00 AO MODE * IjNP 
IPASS a 1 

DO 30 J - 2/NF»KBM 
KK = 0 

CALL GTPATH ( X I, NC +li NN# 1 ) 

II - JJ 
NJ = J-2 

NX = HINO (K8M,NF+1-J) 

IPASS = IPASS+1 
30 CALL MAIN l-J/IPASS) 

AO CONTINUE 

IF {{MRPOLO.NE.-MRP).DR.{HRPOLD,GT.O).OR.(N.NE.NI)) GO TO 50 

HALVE THE MESH AND TRY AGAIN 

MRP = HRP+HRP 

Nl * N3 

REWIND Nl 

GO TO 20 

50 CALL AUTO2(RES>0XDY) 

EMA=ABS(MACHA) 

EHB«ABS(HACHB) 

60 WRITEtNA, 170) N2, EMB> EM A, RES, DXDY ( 1 ) , OXO Y< 2 ) 

CALL SECOND ( Tl) 

TIME = Tl-TIHE 
MODE * 99 

CALL GTPATH (XI, 1,1,1) 

MSG = lOHAUTQHATION 
WRITE (NA,130) MSG,JJ 
WRITE (M4,150) MSG, TIME 
MRP » lABS(MRPOLD) 

Nl = Ml 
NX =. 1 
NJ = 0 

70 DO ao J * 1,9 

CALL INIT (XI,ETA,U,V) 

KK = 0 
MODE = -J 
CALL MAINCJ,!) 

IF (MODE. EQ. -10) GO TO 90 
80 CONTINUE 

90 IF C (MRPQLD.GT.O) .OR. ( HRPOLD .NE .-MRP ) ) GO TO 100 
HRP = HRP+HRP 
Nl » N3 
REWIND Nl 
GO TO 70 

100 MSG = lOHSUPERSONIC 
WRITE (NA,130) MSG,JJ 
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CALL SECOND (TIME) 

TIME = TIHE-Tl 

WRITE (N^>150) HSG/TIME 

ENDFILE N1 

IF (Nl.NE.Hl) ENDFILE Ml 
ISW = 1 

110 CALL GOPLQT ( NRNj IIHDAV ID KORN »10) 

CALL CHNHDE 

IF (ISW.NE.O) MX = NK+2 
IF (HRPQLD.lt. 0) N1 = N3 
MRP = lAeS(MRPQLO) 

CALL BODYPT (HX^NPTS) 

IPLT = lASS(IPLT) 

CALL BLADE ( MX^ NP T$ j C ARD J 
IF CIPLT.EO.O) CALL EXIT 
CALL HOGRF( HX*CARD) 

CALL ENDPLT 
CALL EXIT 

120 WRITE CN't^lSO) NRNX 
CALL EXIT 

130 FQRMAT(///13X8HLONGEST >A10>10H PATH HAS jI3^7H POINTS) 
lAO FORMAT (80A1) 

ISO FQRMAT( /13X, AlOj IIH CP TIME IS »F7.1»8H SECONDS ) 

160 FORMAT (////13 XSHCYCLEj 4X6HHINL£T#5X5HHEXIT,5X8HR ESI 0UAL>8X2HDX, 8X2 
IHOY/) 

170 F0RMATC1H0>11XI5^1X,2F10.3,E13.3j1X»2F10.5) 

160 FORMAT ( / lOXi 27H***=t=ATTEMPT TO CONTINUE RUNjI5>12h WITH WRONG 
I 15HRUN NUMBER**** ) 

END 


FUNCTION INCODE (DATA) 

READS IN THE FREE-FORM INPUT AND STORES THE VALUES 
VARLST CONTAINS THE LIST OF INPUT PARAMETERS 
LOCV CONTAINS THE ADDRESSES OF THE VARIABLES 
NEGATIVE ADDRESSES ARE USED FOR INTEGER VARIABLES 
DIMENSION OAT A(81)>CHARt 39)# VALUE ( 203 >VVAL 1 2 ) # VARLST ( 30 ) # V ARNAM( 7 ) 
1 #LDCV(30)#ARRAY(1)#IARRAY(1) 

COMPLEX ETJ 
REAL MACH 

COMMON /A/ GAMMAiMACH#ROOT( ^t) 

COMMON /C/ PI#GRID#TOL 

COMMON /D/ II# IPLT# JJ#KBM#KK# LBH# MODE# MRP# NB#NC # NF#NJ»NK# NN» NP#NX 
COMMON /E/ ETJ C64)#3UMPC5 #10)#NBHP 
common” /g7 N1#'N3,NA»N7#H1 

COMPLEX xitatl#bp#xia,-xib#-x-ic 

COMMON /H/ BP tl29)#XlA#XIB#XlC#XITAlL#C0NE#CTW0#CTHR#RATC#QRjNBPS 
REAL HACHA# HACHB# HTAIL 

COMHON /K/ MACHA # HACHB# MTAIL#ANGLA#ANGLB#ANGLT#RN#TRANU#TRANL# NRN 
COMMON JU PLTSZ#NPTS 

EQUIVALENCE ( ARR AY ( 1 ) # I ARR AY ( 1 ) )#(RXIA#XIA) 

DATA CHAR / IH A# IHB# IHC# IHD # IHZ# IHF# IHG# IHH# IH I# IH J# IHK# IHL# IHM# 

1 1HN#1H0#1HP# 1H0#1HR#1HS>1HT#1HU# IHV# IHW# IHX #1 KY# 1 H£#1H0# IH 1# 1H2# 

2 IH3#1HA#1H5#1H6#IH7#1H8# 1H9# IH+# 1H-# IK . / 

DATA VARLSTd 3 /3HEN0/ # V ARLST ( 2 J / 2HNP / # VARL ST( 3) /3HNRN/ 

DATA VARLST(A)/3HNFC/ # VARLST (5 )/4HK0NE/ # VARLST(6) /3HHRP/ 
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DATA VARLST<7) /4HKTWD/ # V ARLST C 8 } /2HNF / , VARLSTC9) /2HNI / 

DATA VARLST(IO) /4HIPLT/ t VARLST (11 ) /2HRM/ t VARLST(12)/3HXIA/ 

DATA VARLST(13)/5HPLTSZ/ # VARLST (14 > /3HXIB/ t VARLST ( 15 ) /3HX IC/ 
DATA VARLST(16l/5HGAHMA/ * VARLST (17) /5HTRANU/j V AR LST ( 13 ) / 4H6R ID/ 
DATA VARLSTa9)/6Ht1lNLET/» VARLSTt 20) /5HMEXIT/j V AR LST ( 21 ) /4HMACH/ 
DATA VARLST(22)/7HANGEXIT/>VARLST(23) /5HANGIN/# VAR LST ( 24 ) / 4HKTHR / 
DATA VARLST (253/5HTRANL/ , VARLST C 26 ) /3HRUN / , VAR LST ( 27 ) /4HBUMP / 

DATA VARLST(28)/4HNPTS / 

DATA WCRD/0/ f MLST /23/ f BL / IH /»STAR /1H+/ , K/1/ » ICHP/2/ 
LQCVCNLST+1} - LDC F ( LOG V (NLST+ 1 ) ) 

NX ^ 1 
KX = 1 
MODE * 1 

IF ( NCRD.N£»0) GO TD 10 
L0CV(2) =-LQCF(NP) 

NP = 0 

L0CV(3) *-LQCF(NRM) 

NRM = 1 

LDCV(4) =-LDCF(NFC) 

NFC=64 

L0CV(5) = LOCF(CONE) 

CONE =» .5 

LOCV ( 6) = -LOCF(HRP) 

MRP=-1 

L0CV(7) - LDCF(CTV/0) 

CTWO = 1. 

L0CV(3) = ^LDCF(NF) 

NF = 0 

LQCV(9) * -LOCF (NJ) 

NJ = 1 

LOCV(IO) = -LOCFCIPLT) 

IPIT = 37 

LOCVIll) = LQCF(RN} 

RN = 0, 

L0CV(12) = LOCF(RXIA) 

XIA = (.08^-. 12) 

L0CV(13) LOCF(PLTSZ) 

PLTSZ - 0. 

L0CV(14) » LOCVtlZ) + ICNP 
XIB = XIA 

L0CV(15) -= LQCV(14) + ICfiP 
XIC= (2.^0. ) 

LDCV(16) = LQCF(GAMMA> 

GAMMA = 1.4 

LQCV(17) * LQCF(TRAMU) 

TRANU = .05 
LOCVdS) = LOCF(GRID) 

GRID ? .08 

LQCV(19) = LOCF(MACHB) 

HACHB = 0. 

L0CV(20) = LOCF(MACHA) 

HACHA = 0. 

LQCV(21) = LOCF(MACH) 

MACH =• .75 

L0CV(22> = LOCF(ANGLA) 

ANGLA = -18. 

LQCV(23) - LOCFIANGLB) 
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ANG lb — 7 • 

LDCV(24> = iOCFtCTHRJ 
CTHR = 1. 

L0CV{25) = LOCF(TRANL) 

TRANL = .10 
L0CVC26) =-LQCF<NftN) 

L0CVC27) = L0CF(3UHP 11 ) ] 

LDCVC28J = -LDCF{NPTS) 

NPTS = 201 
NBMP = 0 

10 NCRD * NCRO+1 
DO 20 L == 1^7 
20 VARMAH(L» = IH 
SAVE = 0ATA(81) 

Data (81) = iH$ 

DO 300 L = 1,81 
C IGNORE BLANKS 

IF ( DATA( L ) .EQ.IH ) GO TO 300 
C RESET ON ENCOUNTERING A DOLLAR SIGN 

IF ( (DATAtU.EQ.lHSJ .OR, (OATA(L). EQ.IH; ) ) GO TO 60 
IF (NX.LT.O) GO TO 300 
IF (DATACL) .EQ.IH= ) GO TO 150 
C FIND OUT WHICH CHARACTER WE HAVE 

DO 30 J = 1,39 

IF (DATA(L).EQ. CHAR(J)) GO TO AO 
30 CONTINUE 
J = AO 

AO IF (NX.EQ.O) GO TO 190 
IF (J.GT.26) GO TO 270 
VARNAH(NX) = DATAIU 
NX = NX+i 

IF (NX.GT.8) GO TO 280 
GO TO 300 

C CHECK FOR END Of DATA 

60 IF (NX.LE.l) 60 TO 70 
PRINT A1.0,BL» VARNAH 
ENCODE (10,A10,VNAHE) VARNAH 
IF ( VARLST(l) .EC.VNAfiE) GO TO 310 
C SET VARNAH BACK TO BLANK 

70 DO 80 ^ = 1, 7 
80 VARNAM(J) = IH 
J = NX 
NX = 1 

IF ( J.NE.O) GO TO 300 
90 IF U.EQ.O) NX = 1 

LOC.VJ-KJ- = ISIGN(.IA6SJX0C-VlKU,+a,-L0C-V.CKlJ 
IF (KX.EQ.l) GO TO 290 
IF (KX',GT.20‘) GO TO ITO 
C PUT NUMBER INTO VVAL RIGHT JUSTIFIED 

ENCODE (20,A10,VVAL) C8L,J = KX, 20 ),( VALUE ( J~1 ), J = 2,KX) 
KX = 1 

IF {H00E.GT.2) GO TO 110 

KA = IABS(LDCV(K) )-LQCFCARRAY(l] ) 

IF (HaOE.EQ.2) 60 TO 100 
C INTEGER CONVERSION 

DECODE (20,A20,VVAL) lARRAY(KA) 

IF (LOCV(K) .GT.O) ARRAY(KA) = lARRAY(KA) 
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GO TO 300 

: CONVERT TO REAL 

100 DECODE (20^430# WAD ARRAY(KA) 

IF ILOCV(K) .LT.O) lARRAY(KA) = ARRAY(KA)+.5 
NODE = 1 
GO TO 300 
110 NODE = 1 
GO TO 300 
150 NX = 0 

ENCODE ( 10i410#VNAM£ ) VARNAM 
: LOOK FOR THE VARIABLE ON THE LIST 

DO 160 K - 1,NLST 
IF ( VARLST (K) .EQ. VNAHE) GO TO 300 
160 CONTINUE 

PRINT 450, VNAME 
GO TO 280 

190 IFU J,LE.25) ,DR*(J.EQ.40n GO TO 200 
: CHANGE THE MODE UPON ENCOUNTERING A DECIMAL POINT 

IF (OATA(L).EQ. IH.) MODE = HDDE+1 
C SAVE THE DIGITS TO FORM A NUMBER 

VALUECKX3 = DATACLJ 
KX = KX+1 
60 TO 300 

C CHECK FOR A DECIMAL POINT 

C CHECK FOR A COMMA 

200 IF (OATAU).EQ.IH,) GO TO 90 
' MODE = 3 
KX = KX+1 
GO TO 300 

270 PRINT 460 

280 PRINT 440, NC RD, ( D ATA t J ) , J = 1,603 
LP = L+35 

PRINT 410, (BL, J * 1,LP),STAR 
C SET ERROR FLAG AND LOOK FOR NEXT DOLLAR SIGN 

NX = -1 
290 MODE = 1 
300 CONTINUE 
310 DATA(81) = SAVE 
INCOOE = K-1 
IF CINCODE,NE.O) RETURN 

IF( C AIMAG(XIC ) ,EQ,0. ). AND.(REALCXIC) .NE.2. nGQ TO 330 
IF ( XIA.N£.XIB)GD TO 320 
IF(REAL(XIC3 .EQ.Z, ) XIC*XIB- C, 1, . 1 ) 

IF(REAL(XIC) .EQ.O, ) XIC*X IB+ABS { AIHAG ( XI3-XI C ) ) *CHP LX ( C OS { . 75*PI ) , 
1-SIN(,75+PI ) } 

GO TO 330 

320 IF( REAL CXIC ) .EQ.2. ) X IC= XI8+ . 07=*' ( XI B-X 1 A) /C ABS ( XIB-XI A } 

IFIREALCXIC) ,EO.O.) XI C»XI B+ABS < AIMAG (XI3-XI C ) ) * ( XI 6-XlA ) /C ABS { XI 6 
1-XIA 3 

330 CONTINUE 

C RESTORE LINE COUNTER 

NCRD = 0 
NK = NFC+NFC 
NBPS = NFC+1 
IF {NF»L£.0> NF = NK 
N6MP = {LDCVt271-L0CF(BUHP(l>))/5 
RETURN 
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'iiO 

420 

430 

440 

450 

460 


FORMAT C80A1] 

format (120) 
format CE20.0) 

format ( 19H0A+**ERRDR in card ^13j5H ****, 9X#eOAl) 
format (*0VARIABLH named ^ WAS NOT FOUND*) 

FORMAT (*ONON-ALPHABETIC CHARACTERS NOT ALLOWED IN VARIABLE NAMES*) 
END 


SUBROUTINE RE ADOS ( GAM^ PHKN, NRN ) 

C SUBROUTINE TO READ IN THE INPUT PRESSURE DISTRIBUTION 

COMPLEX ETJ 

COMMON /E/ ETJ(64),BUMP{5^10),NBHP 
COMMON /6/ N1jN3»N4^N7^HX 
COMMON /L/ PLTSZjNPTS 

COMMON AXC130) jBX (130 ) ^ SS C 130 3 j QLG C 130 ) j SI ( 300) > Q1 ( 300 ) ^ ZEROC 300) j 
1DQDS(300) »0PHDS{3OO),FP (300)>FPP(300)>FPPP(300)>QPP (300(# QPPPOOO) 
2 >ES<600)>Q(600)» PHI(600)^ PH1I(130> 

COMMON SX( 300)#OX(300) 

DATA NINHAX /300/ 

WRITE (N4,150) NRN 
READ (N3j110) XIN 
NIN = XIN 

IF (NIN. GT. NINHAX) GO TO 90 
C READ IN Q(S) 

DO 20 J = 1>NIN 

READ (N3j120)SIIJ1jQI(J) 

SX(J) = SI(J) 

C MODIFY THE INPUT PRESSURE DISTRIBUTION 

QMQD = 1. 

IF(NBMP.EQ.O) GO TD 20 
DO 10 1 = 1»NBHP 

10 QMOD = (l.+flUMPFN(SI(J)^BUMP(l#U»8UHP{3^L)^BUHP(4^L)>8UHP(2^L)# 

1 BUHP(5, L) n*QHDD 
20 QX(J)=OI (J)*QMOD 

ARCL * SX( NIN)-SX(1 ) 

FAC = 2. /ARCL 
CONST = -l.-FAC*SX( 1) 

WRlTE(N4j 160) 

WRITE (N4j130) 

DO 30 J * 1»NIN 

SX(J) = FAC*SX( J)+CONST 

WRITE (N4il40) J> S H J ) » 01 ( >)) » SX ( J ) , QX ( J ) 

QI(J)=QX(J> 

30 -CONTINUE 

SX(NIN) = 1. 

WRITE (Nl) NRN^NIN, (SXCJ),QX( J), J = 1,NIN) 

DS - (SX (Nl N)-SX( 1) J /FLOAT (NPTS-1 ) 

C FIND Q(S) AT EVENLY SPACED POINTS 

ES(1) = SX(1) 

00 40 J = 2^NPTS 
40 ES(J) = ES(J-1)+0S 
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liEPEOBUCMLEC? OF THE 
OBIGINAL ?A^ IS 


E$(NPTS> = SX(NIN) 

CAU SPLIF(NIN i SXj QXjFP^ FPP# FPPP>3j0w 3>0.3 
CALL INTPL{NPTS, ES»Oj SX,QXj.FP,FPP, FPPP) 

INTEGRATE CHS) TO GET PHICS) 

CALL SPLIF <NPTS#ES#Q>OQDS>FPP^ PHI>-3»C«?3^0. ) 

GAM = PHKNPTS) 

SPLINE FIT PHI AS A FUNCTION OF S 

CALL SPLIF (NPTS# fcS^ PHI,DPHDS » F PP> F PPP > 3» 0. j 3» 0 . ) 

SPLINE FIT 0 AS A FUNCTION OF S 

CALL SPLIF ( NPTS^ ES^0#DQ0S#CtPP»QPPP^3»O.^ 3^0.) 

FIND S WHERE 0 VANISHES 

CALL INTPLl ( l>SOiO.>NPTS» ES> Q> OQDS^ Q PP^ QPPP) 

FIND MINlMUn VALUE OF PHI 

CALL INTPL<l>SDf PHMN j E PHI^ DPHDS ^FPP^FPPP) 

DO 50 I = l^NPTS 

VAL = AHAXl(O.^PHICI)-PHNN) 

50 PHim = SlGNtSQRTtVAL )»ES{1)-S0) 

WRITE (Nl) NPTSjSOj PHMN,GAM>(ES<J)>Q(J)jPHI(J), J ^ 1,NPTS) 

-RETURN 

90 WRITE (NA^IOO) NINHAX 
CALL EXIT 

100 FORMAT ( 15H0****M0RE THAN >1A#30H INPUT CARDS NOT PERMITTED*"!'** / 
1 32HO+**PROGRAH STOPPED IN READQS*** ) 

110 F0RMATCF5,0) 

120 FORMAT CAE20.81 

130 FORMATClHO/llX* AHCARD^ 5X#7HS-INPUT> 8 Xj 7HQ-1NPUT, 10X>6HS-USE D 
1 ^9X>6HQ-USED /) 

lAO FQRMATC3X^ t9>Zfl5.6#3X,2F15.6) 

150 FORMAT (lHl/8X,22HeEGlN EXECUTION OF RUN ,IA) 

160 FDRHATC 1H0/38X,13HTAPE3 = INPUT/) 

END 


SUBROUTINE TITLE 

C PRINTS THE TITLE PAGE OF THE OUTPUT 

REAL MACH 

COMMON /A/ GAMHA^HACH 
COMMON /C/ PI^GRID^TOL 

COMMON /D/ I1»IPLT, JJ,KBH>KK, LBM> HOD E j MRP# NB> NC> NF» N J » NK> NN» NP> NX 
COMPLEX ETJ 

COMMON /E/ ETJ(64)#BUHP{5# LO)#NBMP 
COMMON /G/ N1»N3#N4,N7#H1 
COMPLEX XITAIL#BP#XIA#XI8#X1C 

COMMON /H/ BP (129)#XlA#Xia#XlC#XITAlL jCONE#CTWD#CTHR»RATC#aR#NBPS 
REAL KACHA#MACHB#HTAIL 

COMMON /K/ MACHA#MACHB#M1AIL> ANGL A# A NGLS# ANGL T# RN# TRANU# TR ANL# NRN 
COMMON /L/ PLTSZ#NPTS 

C - DATE IS A CDC ROUTINE WHICH GIVES THE MONTH#DAY# AND YEAR 
CALL DATE(IOATE) 

NRUN = lABS(NRN) 

TYPE = 7HCASCA0E 

IF < CAB5(XIA-XIB ) .LT.TOL ) TYPE = 7HAIRFQIL 
WRITE (N4#805 TYP E# NRUN# lOATE 
NHl = 8H RUN = 
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NM2 - 8H MRP * 

WRITE (N4,60) NM1,NRN>NH2> MkP 
NHl = 8H MACH = 

NH2 = 8H RN = 

E6 * 2HE6 

RNX = l.E-6*RN 

IF (RNX.EQ.O» ) E6 = IH 

WRITE tM4,70) NH1,HACH^NH2>RMX^ E6 

IF (RN.EQ.O. ) GO TO 10 

NHl * 8H TRANU » 

MM2 = 8H TRANL = 

WRITE (N4^90) NMl^ TRAMU^NMatTRANL 
10 NMl = 0H KONE = 

NH2 = 8H KTWO = 

WRITE (N4,90} NHl,C0NE:rNH2#CTW0 
NHl = 8H KTHR ? 

NM2 = 8H NPTS = 

WRITE CN4#100) NM1>CTHR^NM2»NPTS 
NHl = 8H MF = 

NMZ = 8H NFC = 

NFC = NK/2 

WRITE (N4>60J NM1>NF,NM2^NFC 
NHl = 8H GAMHA = 

NMZ = 8H GRID = 

WRITE tN4^90) NH1> GAMMA^ NHZ^ GRID 
NMl = 8H NI = 

NMZ = 8H NP = 

WRITE (N4^60) NMl#NJ»NM2* NP 
NMl = 8H PLTSZ = 

NMZ - 8H IPLT - 

WRITE (N4j»100) NHL, PLTSZ^NHZ^ IPLT 
NMl = 8H XIA = 

NMZ = 8H XI6 = 

WRITE CN4,130) NMl, XIA, NMZ, XI B 
NHl * 8H XIC - 
WRITE fN4,150> NHl, XIC 
C WRITE OUT BUMPS 

IF CNBMP4LE.0) RETURN 
00 50 J » i,NBHP 

50 WRITE (N4,140) J,{BUMP(L,JJ, L = 1,5) 

RETURN 

60 FDRHATl /17X,A8,I4,13X1HJ 12XA8, 14) 

70 FDRMAT(/17X, A8,F6.3,llXlHJlZXAa,F5. 1, A2) 

80 FORMAT 11H1/15X, lOHTRANSONlC , A8, lOHDES IGN RUN 1 5, 1?X AlO/ // 37X, 
1 12HTAPE7’=INPUT I) 

90 FORMAT (7-1-7X-,-A8,F-64 2,'11-X1H;-1-2X-A8tF6v2-) - - - 
10,0 F,0RMAJ(./.1.7,X,A8,,F.6..2,.11X1H;12XA8,I4 ) 

130 FORMAT l/9XA0,F6, 3,2H , F6 . 3,11X IH; 4X A8, F6 . 3, 2H ,F6,3) 

140 FORMAT ( IHO, 9X, 5HBUMP t , II, 3H ) =,5Fi0.5) 

150 F0RHATt/27X,A8,F6.3,2H ,F6,3/) 

END 
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SUBROUTINE PHIINC (GAM»PHHN) 

C CALCULATES VELOCITY POTENTIAL PHI FOR INCOMPRESSIBLE FLOW 
COMMON /C/ PI»GRIO,TOL 

COMMON /O/ II» IPLT, JJ»KB«#KK>LBHjHGOE>HRP,NB>NC#NF#NJ>NK#NN>NP»NX 
COMMON /&/ M1jN3*N'.^N7»M1 
COMPLEX XITAIL^BP#XIA#XIB#X1C 

COMMON /H/ BP (129), XIA#XIB>XICjXITAIL#CGNE,CTWO^CTHR»RATC> QR,NBPS 
COMPLEX XlP,XlPP#TeMP,CLOG#ROT,XiX,XI,A,XIQ 
COMMON PHIWD<3),PHIWT(3)>PHI1(126) 

COMPLEX ZED 

DATA QR/1./ > ITER /O/ t 2ER0/0./ 

ROT =» (1,+C0NJG{X1B))/{1, + XI8) 

XIP = ROT<‘(XIA-XIB)/{l.-CONJGtXIB)*XIA) 

XIPP * XIP+1, 

AXIPSO REAL( XIP)*>!‘2+AIHA6(XIP)**2 
C EVALUATE PHI AND DPHI/DW AT STAGNATION FOR EACH SINGULAR TERM 

TEMP = -1. 

IF (AXIPSQ.NE.O.) TEMP =-C LOG C XI PP > /XIP 
PHIWOCl) = 2.*REALtTEHP) 

PHIMOC2) =-2.+AIHAG(TEMP) 

PHIWQt3) = 2.*ATAN2(AIMAG(XIPP),REAL(XIPP) ) - PI 
CF * GAH/(PI+PI) 

WELL * GAH-PHHN 

C THE first equation REQUIRES DPHI/DW=0 AT STAGNAT-ION- 
TEMP =■ -2. /XIPP 
All = AIHAG(TEHP) 

A12 = REALCTEHP) 

B1 = -CF*( 1.-AXIPSQ)/(REAL(X1PP)=«=*2+AIHAG(XIPP)**2) 

C WT IS CIRCLE ANGLE CORRESPONDING TO THE TRAILING EDGE 

XITAIL=RDT 

WT=ATAN2(AIMA61XITAIU# REAL(XITAIL>> 

C ITERATE AT HOST 20 TIMES TO FIND WT 

00 20 J » 1,20 
WTOLO = WT 

C EVALUATE PHI AT WT FOR EACH SINGULAR SOLUTION 

TEMP = CONJGC XITAIL ) 

IF (AXIPSQ.NE.O.)TEMP » -CLOGU,-TEMP*XIP ) /XIP 
PHIWTtl) = 2,*REALCTEMP) 

PHIWTC2) =-2.*AIHAG(TEHP 1 

PHIWT(3)=2.*ATAN2<A1MAG(1.-XIP/X1TAIL),REAL( l.-XIP/XITAIL) )+WT 
A21 • PHIWTtl) - PHIWO(l) 

A22 = PHIWT(2)-PHIW0t2) 

B2 = -CF*tPHIHTt33-PHIWO( 3) )+WELL 
AF = {A22*B1-A12*B2)/(A11*A22-A21*A12) 

8F * (B1-A11*AF)/A12 

C NOW COMPUTE THE LOCATION OF THE TRAILING EDGE 

XITAIL = CMPLX(AF>6F)/CHPLXtAF>-BF> 

WT = ATAN2(AIMAG(XITAIL)/REALtXITAIU ) 

IF (A8S(HT-WTDLD)4LT.T0L) GO TO 30 
20 CONTINUE 
30 A = CHPLX(AF,BF) 

C FIND W AT THE TRAILING EDGE 
XI = CONJGtROT)#XITAIL 
XI - (XI+XIB) /(l.+XI*CDMJG(XIB) ) 

W= ATAN2( AIHAG(XI),REAL(XI) ) 

WTAIL = W 

C FIND PHI AT EVENLY SPACED POINTS STARTING FROM STAGNATION 
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CONST = AF*PHIW0(l)+BF*PKIWaC2)+CF«PHIW0(3) 

DW = (PI+PI)/FLDAT<NK) 

ARG=-PI 
W - -PI 
XIX = -1. 

DQ 40 J = 1»NK 

XI = CMPLX(COS(MJ>SIN{W) ) 

XIO * ROT*{XI-XI8)/tl.-CaNJG(XlB)*Xl) 

TEMP = CONJGC XIO) 

IF tAXIPSQ.ME.O.)TEMP - -CL06(1.-TEHP+XIP) /XIP 
ATl=ATAN2r AIMAG(XIX/X10)#REAL(XIX/XI0J J 
XIX = XIO 
ARG=ARG-AT1 

PHII I J)a2.^^REALtA^=TEMP) + CF*ARG^C0MST+2.*CF*ATAN2{AIHAG (1*-X1P/XI0) 
1>REAL(1.-XIP/XI0)) 

W = W + DW 
40 CONTINUE 
NT » NK+1 
PHIKNT) = GAM 

WRITE tNl) QR,QR,ZERO, ITERANT, (PHIItJ)>ZERD> J = I>NT) 

WRITE tNl) WTAIL 

RETURN 

END 


SUBROUTINE INIT (XI>ETAiU>V) 

C INITIALIZE THE PATH FROM INFINITY TO XIC 

COMPLEX I#S;fH/SOFXI#XIOFH^ ROOT^ ROOTl^XKD^ ETA{l)»U<l)#VtlJ 
REAL MACH 

COMMON /A/ GAHHA»HACH>ROOT^ ROOT 1 
COMMON /C/ PIiGRID>TOL 

COMMON /D/ II»IPLT# JJ>KBM»KK>LBMj HOOE» MRP» NB > NC> NF^ N NK# NNj N P# NX 
COMMON /F/ UQLDj VOLDj SINGF> SINGS>SINGXf SINGY>PHI0LD(20)#PSI0LDC20) 
1 j XQLD(20)iYQLD(20)» XAIMG>YAIMG>THLAST»CL#OF 
COMPLEX XITAIL#BP#XIA/XIB^ XIC 

COMMON /H/ BP{129)>XIA,XI0»XIC,XITAIL^CONE»CTMQ>CTHRf RATC^ QRjNBPS 
REAL HACHAjHACHB, MTAIL 

COMMON /K/ MACHA#MACHB#MTAIL^AN6LA>ANGLB,ANGLT,RN>TRANU>TRANL> NRN 
LOGICAL ISW 

DATA 1/(0. *1,)/ * ISW/. TRUE./ t ROOT/ C 0. # 1 . ) / » ROOTl/ ( 1* » 0. 1 / 

ROOT = (0.#1. J 
RQQTl = (l.jO.) 

IF (ISW) GO TO 5 

IF (MACHA.GT. 0. ) XIA = XIQFH(HACHA> ANGLAJXTA')- ’ 

IF (.MACHB...GX..O...), .XI B. * .XIOEM.t MACHBrANGLB^ XI 8) 

5 ISM = .FALSE. 

C LAY DOWN PATH FROM XIA TO XIB TO XIC IN ETA-PLANE 

XI(l) - XIA 

C COMPUTE THE NUMBER OF POINTS FROM XIA TO XI8 

MM = CABSt X1B-XIA)/GRID + l.-TOL 
HH " MM+MRP 
NB = MM+1 

IF (NB.EQ.l) GO TO 15 
H =• (XIB-XIA) /FLOATtMH) 
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C LAY DOWN GRID TO XIB 

DO 10 L = 2>NB 
10 XKU = Xia-1) + H 

C COMPUTE THE NUMBER OF POINTS FROM XIB TO XIC 

15 HH = CABS (XIB-XIC) /GRID + l.-TQL 
HN = MM*HRP 
NC * HH+NB 

H = (XIC-XIB) /FLDAT(MM ) 

C LAY DOWN GRID FROM XIB TO XIC 
NBP = NB+1 
DO 20 L = NBP/NC 
20 XI(L> = XKL-D+H 

IF t MODE. EQ. -101 RETURN 
C LAY DOWN REFLECTED GRID IN THE XI-PLANE 

OQ 30 L 1,NC 
30 ETA(L) = CONJG(XItL)) 

RAD s PI/180. 

GAM = (GAMMA-1. )/2. 

COSO = 1./ (HACH*HACH)+GAH 
IF (HACHB.GT.O. ) GO TO AO 
C FIND MACH NUMBER AND ANGLE AT INLET 
S = SOFXKXIB) 

U(N6) - 1. 

V(NB) = 0. 

CALL GETUV (S^CONJG(S) ^U(NB)#VlN0n 
UB = REAL(U(NBn 
VB = REAL(V(N8)) 

QSe= UB^-UB+VB^VB 

MACHB = -5QRT(QSB/(C0SQ-GAH*QSB n 
ANGLB = ATAN2(VB» UB)/RAD 
GO TO A5 

40 Q5B * C0SQ*MACHB*MACH8/<1.+GAH*HACHB«HACHB} 
U8 = SORT( QSB )*C0S(RAD<‘ANGL8) 

V8 = S0Rn0SB)*SIN(RAD*ANGLB3 
UCNB) = UB 
VtNB) » VB 

45 IF ( HACHA.GT.O.) GO TO 50 
C FIND MACH NUMBER AND ANGLE AT EXIT 
Utl) = 1. 

V(l) = 0. 

S - SDFXKXIA) 

CALL GETUV (S^CDNJG(S),UC1),V{1) ) 

UA = REAL (Utl ) ) 

VA = REALt V(l) 1 
QSA» UA*UA+VA*VA 

HACHA - -SQRTtQSA/ (COSQ-GAM*QSA) ) 

ANGLA = ATAN2 (VAtUA) /RAO 
RETURN 

50 QSA COSQ^MACHA^MACHA/ tl.+GAH+MACHA*HACHA] 
UA = SQRT(QSA)*CDS(RAD*ANGLA) 

VA = SQRT(QSA)*SINCRAD*ANGLA] 

UCl) = UA 
V(l) = VA 
RETURN 
END 
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C 


c 


c 

c 


c 


c 


SUBROUTINE CYCLE (ITERJ 
ITERATES TD FIND HAP FUNCTION 


REPRODUCIBILlTy OF THE 
ORIGINAL PAGE IS POOR 


COMPLEX H^HPjSlG 
REAL MACH 

COMMON /A/ 6AHHA#HACH 
COMMON /C/ PI>GRIO>TOL 

COMMON /D/ Hi IPLT# J KBM»KK» LB M# MODE# MRP» NB» NC# NF^ NJ» NK# NN> N P> NX 
COMMON /G/ N1>N3>NA, N7#M1 
COMPLEX' XITAIL#BP#XIA* X1B» XIC 

COMMON /H/ BP{129)^ XIAj XIB#XIC#XITAIL,C0NE» CTWD>CTHR,RATCjQR#NBPS 
REAL MACHA^MACHB^MTAIL 


COMMON /K/ MACHA>HACHB^HTAIL» ANGLA>ANGLB#ANGLT» RN^ TRANU# TRaNLj NRN 
COMMON AX(130 )jBX ( 130) iSS( 130) jQLG(130)» SI (300)^01(300 )» ZERO (300 )> 
lDQOS{300)^DPHDS(300)tFP(300)>FPP(300)>FPPP( 300J j QP P (300 ) » QPPP ( 300 J 
2 >ES(600)>0(600)*PHI(6001# PHIK130) 

COMMON 00L0(130) 

DIMENSION DQOPHOOO) 

EQUIVALENCE ( DQD PH (1 ) » OPHOS ( 1) ) 

LOGICAL ISW 

DATA GX /!./ » ISW/»FALSe./ 

IF (ISW) GO TO 10 
TO = PI 
NK2 = NK/2 

OT = (PI+PI) /FLOAT(NK) 

GAMP = (GAMMA+1< )/2. 

GAMM= (GAMMA-1, )/2. 


EHUSQ = GAMM/GAHP 

QSTRSQ * EMUSQ+1./ (GAMP+MACH<=HACH) 

10 ISW = .TRUE, 

REWIND N1 
READ (NIJ 

READ (Nl) NPTSiSOjPHMNiGAMj (ES(J )jQ{ J )^PHI( J), J = 1,NPT$) 

READ (Nl) QR,QS>RATC»ITER>NT>(PHII( J)>QaLDU)> J == 1>NT) 

IF (NT.NE.NK+1) GO TO 70 
READ (Nl) WTaIL 
READ (Nl) MACH 

SPLINE FIT Q AS A FUNCTION OF S 

CALL SPLIF (NPTS^£SjQ^DQDSjQPP^QPPP»3^0,»3j0.) 

DO 20 J * IjNPTS 
20 2ERQ(JJ = 0, 

SPLINE FIT Q AS A FUNCTION OF PHI 

CALL SPLIF(NPTS> PHI# Q» OQDPH^ FPPi FPPP# 3# 0 .# 3# 0. ) 

PHII IS THE GUESS FOR PHI AT EVENLY SPACED POINTS IN THE CIRCLE 
PHII(l) = 0. 

PHIUNT) = GAM 

GAM2- = .SfGAM 

DO 30 J ^ IjNT 

SS(J) * FLOAf(J-l)+DT-PI 

FAC = SIGN(1.»WTAIL-SS(J)) 

VAL = AMAXl (0.#PHIH J)-(1.-FAC )*6AH2J 
AX(J) = FAC+5QRT(VAL) 

COMPUTE QI AT THE CORRESPONDING POINTS 

CALL INTPL ( 1# AX( J)»QI ( J)»PHI#Q#DQDPH# FPP#F PPP) 

30 CONTINUE 

IF (ITER.GT.O) GO TO AO 

FIND DQ/DW AT THE STAGNATION POINT 


DQDW=(QI (2)-QI(NT-l) )/(2.*DT) 
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CALL GETHSQ({0,>0.),H»HP3 

RATC= 1.-1./{ABS(DQDW)*S0RT{REAL(HP) ) ) 

40 IT.ER = ITER + 1 

RAT * l.+RATC+RATC 
SUM = 0. 

C GET COMPRESSIBLE ANALOG FOR LOGCQ) 

DO 50 J = 2>NK 
RFAC * GX-1. 

IF ( (J.EQ.2).DR.CJ.EQ.NK)> RFAC -= .3*6X-1» 

IF (ITER.EQ.l) RFAC = 0. 

AXU3 = A6SCQKJ) J-QOLO(J) 

QI[J) « ABS{QI(J))+RFAC*AX(J) 

K = J+NK2 

IF (K.6T.NK) K = K-NK 

CALL G£THSQ(CMPLX (QR=t=CII ( J )*QI ( J 3,0. HP) 

T = SS(J) 

FAC = 4,ASIN( ,5*(T-T0) )**2/CRAT-2.*RATC*CDS (T-TO) ) 

HIHG = ABS CAIHAGCH) )**CTWD 
HAS = CABS £H)+HIHG+CQNE 
QLG(K) = .5+AL0G£HAB/FAC) 

SUM » SUM+ QLG(K» 

50 CONTINUE 

0LG(NK2 + 1) = QLG£NK2)+QLG{NK2<‘2>-.5*( 01G(MK2-1) + QLG CNK2+3) ) 
QLGINT) = OLGIl) 

AVE * CSUM+QLG ( NK2+1 )) /FLOAT! NK) 

SIG = CHPLXfEXP(AVE3>0.) 

H=C1. 0,0.0 ) 

HP=(0.,0. ) 

CALL GETUV(SIG,CONJGlSIG),H,HP) 

QS > REAL (H)*R£AL(H)+REAL (HP) ’f'REAL(HP) 

OR = OR/QS 

MACH = 5QRTa,/{GAHP*0R*QSTRSQ-6AHM) ) 

C COMPUTE THE COEFFICIENTS FOR THE HAPPING FUNCTION 

CALL FOUCFCNK,OLG ,BP,AX,BX) 

BP(1) - CHPLX(REAL{BP(1)),0.} 

BPU) = 0. 

NFC = NK/2 

C FILTER THE FOURIER COEFFICIENTS 

FAC = (PI+PI)/FLOAT(NK) 

DO 60 J « 1,NFC 

SIG = SIN(FL0AT£J}*FAU/(FL0AT( J)*PAC) 

60 BP{J+1) = SIG*BPCJ+1} 

H = SGFXi('XIC) 

H - SOFXKXIA) 

REWIND N1 

C SKIP PAST FIRST TWO RECORDS ON TAPEl 

READ INI) 

READ (Nl) 

WRITE (Nl) QR,QS,RATC,ITER,NT,(PHII(J),QI( J) , J = 1,NT) 

WRITE (Nl) WTAIL 
RETURN 

70 WRITE (N4,80) NK,NT 
CALL EXIT 

80 FORMAT (1H09X,7H****NK=I3#8H AMD NT*I3,21H ARE INCOMPATIBLE**** 
1 //10X32H****PRD6RAM STOPPED IN CYCLE**** ) 

END 
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COMPLEX FUNCTION X I0F3 ( S ^ XI PA ST J 

C CALCULATES CHARACTERISTIC COORDINATE XI AS A FUNCTION OF S 

COMPLEX XIPAST>X1DL0^ XIN£W*SOFXl#SOFXIP^S 
COMMON /C/ PI/GRIO#TOL 

COMMON /D/ IIj IPLT» J KK^ LBH»H 00E#HRP/NB,NC#NF,NJ,NK,NN,NP,NX 
COMMON /G/ NljN3»MA,N7>Hl 
XIOLD = XIPAST 

C DO AT HOST 20 NEWTON ITERATIONS 

DO 40 K = 1j20 

XINEW = XIOLD-CSDFXI (XIQLDO-S)/SOFXIP LXI0LD3 
IF tCABS(XINEW -XIOLD >. L£ . TOD 60 TO 50 
XIOLD »= XINEW 
40 CONTINUE 

XINEW = SOFXI ( XI0LD3-S 
WRITE (N4j60) S»X10LD#XINEW 
XINEW=XIPAST 
50 XIOFS XINEW 
RETURN 

60 FQRHAT(/’^ NO CONVERGENCE AT S-*j2F6.3#5X3HXI*^2F6.3»6X,*S( XI J-S=* 
1 f ZF6.3/* TROUBLE CALCULATING SONIC LINE. CHANGE MACH *> 

END 


COMPLEX FUNCTION SOFXI (XI) 

C CALCULATES HOOOGRAPH VARIABLE S AS A FUNCTION OF XI 

COMMON /Q/ FP»TEMP 
COMPLEX XI#X^FN,FP^S#CEXPfTEHP 
COMPLEX XITAIL^BP^ XIA,XIB»XIC 

COMMON /H/ BP (129),XIA»XIB^ XIC>XITAIL^CONE#CTWO#CTHR^ RATCjOR*NBPS 
C S = ((XI+l,)/(RATC*XI + l.))*EXPfFN(Xin 

C WHERE FM(XI) == BPlJ + l)*XItJ 5 J = 0 TO NBP3-1 

DATA X /(I.EIO^OD/ 

IF ((REAL(X)*EQ.REAUXI)>.AND. (AIMAGIXJ .EO.AIMAGCXD) ) 60 TO 20 
X = XI 

IF (REAL (X )**2+AlHAG(X)+=(<2.GT.l .21) X= 1, 10+X/C ABS ( X ) 

C FIRST EVALUATE FN AND ITS DERIVATIVE 

FN = BP tNBPS)*X+BP(NBPS-l) 

FP = BP(NBPS) 

J = NBPS-2 
10 FP = X*FP+FN 
FN = X«=FN+BP(J) 

J * J-1 

IF (J.GE.l) GO TO 10 

FN = CEXP(FN) 

TEMP = 1 ./ (RATC*X+i. ) 

S = (-X+l.-)'<=(-TEHP<^FN)- 

TEMP = (l.-RATC)*TEMP*(TEMP*FN) 

20 SOFXI = S 
RETURN 
END 
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COMPLEX FUNCTION SOfXlPCXIJ 
COMPLEX XITAIL^BP,XIA, XIB#XIC 

COMMON /H/ BPU29)>XU»XlB»XIC#XITAlL>C0NE,CTW0#CTHR#RATC>0ftjNBPS 
COMMON /O/ FP^TEHP 
COMPLEX XIjTEMP>FP>SOFXI 
SQFXIP = 'SOFXI(XI) 

SOFXIP = TEMP+FP+SOFXIP 

RETURN 

END 


COMPLEX FUNCTION XIOFM tM^ ANG> X lOLD ) 

C COMPUTE XI CLOSEST TO XIQLD WHICH HAS MACH NUMBER H AND ANGLE ANG 
COMMON /A/ GAHMA^MACH 
REAL H^MACH 

COMPLEX H5Q^HSQPR>S,XIDFS,X1QLD 
DATA EMOLD/0./ , PI /3. 1^159265358979/ 

IF (MACH.EQ.EHQLD) GO TO 10 
EMOLD = MACH 
RAD * PI/180, 

GAM = (GAHHA-l, J/2, 

COSO =1./ (MACH^HACH) + GAM 
10 EMSQ = M*M 
ANGL * ANG*RAD 
QS = COSQ=t=EHSQ/ 11.+GAH=«'EMSQ} 

CALL GETHSOtCMPLXtQSjO, ) »HSQj HSQPR) 

S = SQRT<REAL<HSQ) )+CHPLX<COS{ANGL)#-SlN(ANGD) 

XIOFH = XIOFS(S,XIDLD) 

RETURN 

END 


C 


C 


FOR COEFFICIENTS OF STREAM FUNCTION PSI 


SUBROUTINE AUT02(RE5>DZ) 

SOLVES LINEAR EQUATIONS 
REAL MACH 

COMPLEX ETJjDZ, ROTATE 
COMMON /A/ GAHHAjMACH 

COMMON /fi/ FAREAL»FAINGjSAR£AL^SAIH6»FB1HG^SBIHG>X8IHG»YBIHG 
COMMON /C/ PI>GRIO,TQL 

COMMON /D/ II# IPLT^ J J/KBMf KK^LBM#MODE#HRP#NB* NC jNF>NJjNK#NN>NP,NX 
COMMON /E/ eTJ(64),BUHPC5#10),NBHP 

COMMON /F/ UOLD# VOL0#SINGF j SINGS# SINGX#S INGY# PHI OLD 1 20)# PSIQLD(20) 
1 # XOLD120)#YOL0120)#XAIMG#YAIHG#THLAST#CL#DF 
COMMON /G/ N1#N3#N9#N7#M1 

COMMON PHS( 12 9# 3)#RHXU29#3)#RHY< 129# 3)# RHS <129# 3 ) # U( 129 ) # V ( 129 ) 
COMMON ARRAY(128# 120) 

NT = NK+1 


OW = ( PI+PI )/FLOAT{ NF) 

NOSE = NF/(NP+NP) 

DM • -FLOAT! NOSE-1 ) ■S'DW 
READ IN PSI 
00 25 LX = 1#2 

CALL REAOX t 2# MAXO ( 1# NK /N F) ) 
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FAC * SQRT(Z,*(l.-HACH*rtACH>/FLDATtNF)J 
ROOT2 = 1./SQRTC2. ) 

CQMST * l./SQRK FLDAT(NF) ) 

W * OH-RI 
DO 20 K * IfNF 
DO 10 4 = 2^NF 

10 ARRAY(K>J) = FAC*ARRAY(K#4) 

W » W+DW 
OD 15 J = 1>3 

15 RHS(K>4) = RHS(K>J)*FAC 

ARRAY(K>MF3 = ARRAY (K* NF ) +R0DT2 
20 ARRAY(K>1) - CONST 
25 CONTINUE 

CALL LEQ{ARRAY,RHS*NFf 3»128,129»SX) 

CALL READX a,MAXO(l,NF/NK> ) 

FAC = FAC*SQRT(FLOAT{MF>/FLOATCNK)) 

DO 40 K « 1#MK 
DO 30 J = 1»3 

30 RHXCKfJ) = FAC+RHX(K>J1 
DO 35 4 = 2,NF 

35 ARRAY(KjJ) * FAC*ARRAY(K# 4) J 

40 ARRAY(K^MF) = ARRAY(K#Nf J*ROOT2 
DO 65 M = 1#3 
DO 60 K = 1»NK 
SX =-RHX(K>M3 
DO 50 J = 2 jNF 

50 SX = SX+RHS(4^M)+ARRAY(Kf J) 

60 PHS(K,H) = SX 

PHS(NK+1,H) * PHSU^Hl 
IF CM.NE.3) GO TO 65 
PHSCNK+1,3) = PHStl>3)+( PI+Pl )*FAC 
65 CONTINUE 

CALL READX {4>HAX0(1/NF/NK) ) 

DO 80 H = 1»3 
00 80 K = 1*NK 

IF IM.EO.l) ARRAYtKiNFJ * ARRAY ( Kf NF 3 *RQ0T2 
SX = -RHXCK>M) 

DO 70 4 = 2#NF 

70 SX * SX+RHS(4^H3*ARRAY(K,J) 

IF (K.E0.13 RHY<NT#M) * F AC* C SX-RHXC NT^ M 3 +RHX (1, M 3 3 
80 RHYtK,H) = FAC+SX 

CALL READX 13, MAXO < 1>NF/NK3 ) 

DO 100 H = 1,3 
00 100 K - 1,NK 

IF (H.EQ.l) ARRAYtK,NF) = ARRAY ( K, NF 3 *R0QT2 

SX = -RHX{K,H) 

DO 90 4 ="2,'nF 

90 SX * SX+RHS( J,H3*ARRAY(K, J) 

IF CK.EQ.l) RHX(NT,.M) = FAC*(SX-RHX[NT,H)+RHX (1,M) 3 
100 RHX(K,H) = FAC*SX 

CALL GETABC(AF,BF,CF,FAC,RES) 

DO 110 K = 1,NF 

RHS(K,1> = AF*RHS£K,13+BF*RHS{K>2)+CF*RHS<K,3) 

110 CONTINUE 
NFH = NF/2 
DO 120 4 = 1»NFH 

120 ETJtJ} « CHPLX(RHS(2*J+1,13,RHS(2*4,1) J 
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ETJ(NFH) = CMPLXCO.»RHS(NF,1)*RODT2) 

PSIQLD(2) = RHSCl#l)/SClRT(2.*a.-HACH*HACH) ) 

GET DX AND DY AT TRAILING EDGE 

HDOE - -10 

CALL HAIN (-1#1) 

MODE = I 

ANGROT ^ ATAN2(-XBIHG^-YBIHG) 

ROTATE > CMPLXICOS (ANGROT) ^SIN< ANGROT) > 

WRITE (Nl) HACH>OF,CL»XAIHG,XBIHG, YAIHG»YBIHGjROTATE 
DZ = -CPI + PD* CHPLX< XAIHG + XBlrtG#YAlMG+YBIMG)*RQTAT£ 
RETURN 
END 


C 


SUBROUTINE READXt IND^I SKP > 

RESULTS OF INTEGRATION COLLECTED IN ARRAY FOR USE IN AUTQ2 
IND = 1 FOR PHIj IND = 2 FOR PSI^ IND=3 FOR Xt IND='r FOR Y 
ONLY EVERY <ISKP>TH POINT IS SAVED 

COMMON PHS(129^ 3)# RHX{ 129> 3)^RHY( 129#3)>RHS(129>3)#U(129)» V( 129) 
COMMON ARRAY< 128»128) 

DIMENSION DATACA#20>*SINGt4)>BPER(4> 3) 

DIMENSION D0DD{4^128)^SING1(4,10) 

COMMON /Cf PIjGRIDjTDL 

COMMON /D/ II>IPLTj JJ^KBM^KKjLBH* MODE* MRP, NB,NC»NF»NJ#NK>NN7NP>NX 
COMMON /a/ N1,N3,N4,N7,M1 
IF (Hl.NE.Nl) REWIND Ml 
REWIND Nl 

SKIP PAST FIRST FOUR RECORDS ON TAPEl 
READ (Ml) 

READ (Ml) 

READ (Ml) 

READ (Ml) 

KX = 0 

NOSE = NK/(NP+NP) 

KSUP=0 

DO 160 L = 1,NP 
MX = 0 

DO 150 JJ - 2,NF,KBH 
M - JJ-1 
MX = HX+1 

NX = HrNO{KBH,NF-H) 

READ (Nl) SING 
IF (HX.GT.3) GO TO 20 
DO 10 IX = 1,4 
10 BPER(IX,MX) = SING(IX) 

20 READ (Nl) K1>K2 

IF (H1*£Q.N1> GO TO 30 
READ (Ml) SING 
READ (ML) K1,K2 
30 INC = -1 

K = KX+(K2-1 ) /ISKP+1 
IF (Kl.GT.O) GO TO 40 
INC = 1 
K = KX 
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40 DO 150 LL = ItKZ 

C SKIP PAST FIRST POINT FOR EACH SUBSONIC PATH 

IF (LL.EQ, INC) GO TO 90 

C SKIP PAST LAST POINT OF EACH PATH FOR SUPERSONIC PATHS 
IF 1 CLL.EQ.K2) .AND. IKl.GT.O) ) GO TO 90 
IFIHODC LL-lj ISKP) .NE.OJ GO TO 135 
K = K+INC 

read (N1) UK# VKi CCDATA(IX,J),IX*1»4JW*1*NX)>{SING(IX)>IX>1»4) 

IF (HX.GT.3) GO TO 60 
UtK) = UK 
V(K) = VK 

RHX(K#HX> = SINGIINDJ 

60 DO 70 J = 1>NX 

70 ARRAYfK,J+M) = DATA<IND#J) 

If(Nl.EQ.Hl) GO TO 81 

READ CHI) UK>VK# UDATA(IX#J )#IX=1#4)# J=*l#NX)i tSIN6(IX)»IX=l>4) 

C DO RICHARDSON EXTRAPOLATION 

DO 80 J = 1#NX 

80 ARRAY(K#J+M) * (4 .*ARRAY <K# J+H)-DATAI IND» J ) ) /3. 

IFCHX.GT.3) GO TO 81 

RHX(K#MX) = (4,«'RHX(K#HX)-SING(IND))/3. 

61 CONTINUE 

IF(IL.EQ.NP).AND.(LL.EQ.l),AND.CKl,GT.O)) GO TO 82 
IF((L.E0.NP}.AND.CLL.EQ.K2).AND*(K1.1E.0<)) GO TO 82 
GO TO 150 

82 IF({IND.GT.2).AND.(KSUP.GT.O)] GO'TQ 132 
GO TO 150 

90 1F((L.NE.2).QR.(IND.LE.2) ) GO TO 135 
C CORRECT THE ITERATION FOR X AND Y NEAR THE STAGNATION POINT 

READ (Nl) UK,VK, ( (0ATA(IX#J)#IX=1#4)#J=1#NX)# {SINGCiX)#IX=l#A) 

IF (Hl.EQ.Nl) GO TO 110 

READ (Ml) D#D# (D»D#DATA(1, J)#DATA(2, J)# J=i#NX)#D#D#SING(l)#SING(2 ) 
C DO RICHARDSON EXTRAPOLATION 

DO 100 J = 1#NX 

100 OATA(IND>J) = C4.*DATA(IN0#J)“DATA{IND-2# J) )/3. 

IF CMX.GT.3) GO TD 110 

SINGCINO) = {4.*SING( IND)-SINGC IND“2) >/3. 

110 DO 120 J = 1#NX 
JX = J+H 

COR = DATA(IND#J) - ARRAY(KX#JX) 

ARRAY (NOSE# JX)= ARRAY(NOSEjJX)- .5*C0R 
DO 120 K2 = NQS£#KX 
120 ARRAYCKZ#JX) * ARRAY ( KZ# 4X )+ COR 
IF CflX.GT.3) GO TO 150 
COR = SINGCIND )-RHXCKX#HX) 

RHX{NOSE#MX) = RHX(NOSE#MX) - .5*C0R 
DO 130 KZ - NOS£#KX 
1-30 -RHX{KZ-#KX-)- = RHX(K-Z #MX ) -+ COR 
GO TO 150 

132 00 133 J=1#MX 
JX=J+H 

COR*ARRAYtK# JX)-DODO(IND# JX) 

ARRAY ( NOS E# JX) =ARRAY (NOSE# JX )-. 5*C0R 

00 133 KZ=1#NDSE 

ARRAYtKZ# JX)=ARRAYCKZ# JX)+COR 

133 CONTINUE 
IF(HX.GT,3) GO TO 150 
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CaR=sRHXCK, HX) + (PI+PI)*8PER (IND# MX) -SINGl ( INDjMX) 

RHXCNOSE>MX)=RHX (NOSEj HX)-.5=^CDR 
DO KZ = 1,N0SE 

13<f RHXtKZ^ J1X) = RHXIKZ^MXJ+C0R 
GO TO 150 

135 If=t <L.N£. D.QR. ( IND.LE.2 J ) GO TG 1^1 
IF(Kl.LE.O) GO TO 1^1 

KSUP=K1 

READ (Nl) UK>VK» ( COODO Cl X» J + M) # 1X=1> 4 ) # J = l^ NX ) # (SINGK IX» MX ) # IX=1# 4 
1 ) 

IFCHl.EO.Nl) GO TO 150 

READ (Ml) D^0> (D#0>DATA(1#^>>DATAC2# J)^ J»I^MX),D>D^SING(1)>S1NGC2) 

DO 136 J’ltNX 

JX=J+H 

136 DDOOCIND, JX)=(A.=«'DODD{IND* JX)-DATA{iND-2f J) ) / 3. 

IFCHX.6T.3)60 TO 150 

SING1(IND,MX) =C4.#S1NG1{IN0>HX]-SINGC lND-2) ) /3. 

GO TO 150 
141 REAO(Nl) 

IF (Ml.NE.Nl) READ (Ml) 

150 CONTINUE 

160 KX = KX + (K2-n/ISKP 

IF UN0.NE*2) GO TO 180 
DO 170 M * 3 

DO 170 K = 1#MK 
170 RHS(KjH) = RHXCK^H) 

RETURN 

180 DO 190 M = 1*3 

190 RHX<NK*-1»H) = RHX ( 1* M)-( PI + PI } PER t IND* M) 

RETURN 

END 
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SUBROUTINE GETABC C A F* B F* C F* C X* DHAX ) 

SETS UP SINGULARITIES FOR FLOW AT INFINITY 
COMPLEX S0FX1*XI*SX* XI80DY 

COMMON /B/ FAREAL*FAIHG#SAREAL*SAIHG*FBIHG* 
COMMON /C/ PI*GRID*TDL 

COMMON /D/ II*IPLT* JJ*KBH*KK*LBM,HQDE*MRP*N 
COMMON /F/ U0LD*V0LD*SINGF*S1NGS*SIN6X*SING 
1 * XaLD{20)*Y0LD<20)*XAIHG*YAIHG*THLAST*CL* 
COMMON /G/ N1*N3*N4*N7*M1 
COMPLEX XITaU/6P*XIA*XIB* XIC 
COMMON mi BP 1129),XIA*XIB*XIC*XITAIL*C0NE* 
COMMON PHSI129»3),RHX(129*3)*RHY(129* 3) *RHS 
COMMON AX (130)*BX(130)* SS(130 )*QLG( 130)* SI-C 
1DQOS(300)*DPHDS{300)*FP (3001* FPP{ 300)* FPPPt 


AND adjusts COORDINATES 

$fiIHG*XBIMG* YBIMG 

B*MC*NF*NJ*NK*NN*NP*NX 
Y*PHIDLD C20)*PSIOLD(20) 
DF 


CTWO*CTHR,RATC*QR* NBPS 
C129*3)*U(129)»VC129) 
300)*QI(300)*ZERO(300)* 
300),QPP(300)*QPPP(300) 


2 * ES C600)*Q{600)* PHI C-600) *PHII (130) 

COMMON OM C 130 ) »D PHI (130*3 J »PHIPP( 130* 3) * PH I P3 ( 130*3 ) » PHI NT ( 130 ) * 

1 DPHII(130)»PHIIPP(1'30)* PHIIP3(130) *DX( 13O)*0Y( 130)* PHIX (130)* 

2 STAG(130)*XIBODY(200)*UBODY (ZOO)* VBOOYC 200 )* XBOO Y ( 200 ) * YB OOY ( 200 ) 


DIMENSION 0PDWDC3)* PHIWOC 3)* PHIWTC3) 
DATA RELAX /.8/ 

Nl = Ml 
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REWIND N1 • 

READ <N1) 

READ (NIJ NPTS»S0>PHMNj 6AH,(ESC J}#Qt J)jPHI(J)# J - l^NPTS) 

READ (Nl) QRjQS>RATC^ITER^NTj tPHlII JJ>QI(J] * J = 1>NT) 

READ (NIJ WTAIL 

C CONSTRUCT ARRAT OF EVENLY SPACED POINTS AROUND THE CIRCLE 
DW = <PI + PI)/FLOAHMK) 

NOSE =t NK/(NP+NP) 

□ HID =-FLDAT(NOS£-l)*'DW“PI 
DO 10 K = 1>NK 
OMlK+1) = OH<K)+OW 
ZEROIK) - 0. 

10 CONTINUE 

C STAGNATION POINT IS AT OH = -PI 

DO 20 M = 1#3 

C SPLINE FIT EACH OF THE SINGULAR SOLUTIONS 

CALL PSPLIF(NT#OH»PHSa>M)»OPHI C1/H),PHIPP (1^H1#PHIP3C1#H>> PHINT) 
C EVALUATE PHI AT -PI 

PHIWOIM) = PHS(NQSEjM) 

C EVALUATE DPMI AT -PI 

DPOWO(M) = (PHS(NOSE + L#H)-PHS<NOSE“UHn/(DW+DW) 

20 CONTINUE 

CF = GAH/1PHS <NT^ 3)-PHS (1,3) ) 

WELL = GAM-PHMN 

C WT IS CIRCLE ANGLE CORRESPONDING TO THE TRAILING EDGE 

WT = WTAIL 

C THE FIRST EQUATION REQUIRES DPHI/DW=0 AT STAGNATION 

All = DPDWOCl) 

A12 = OPDWQtZ ) 
fil = -CF*DP0WD(3) 

C ITERATE TO FIND WT AT MOST 20 TIMES 
DO 80 J « 1,2 0 
DO 40 H = 1,3 

C EVALUATE PHItWT) FOR EACH SINGULAR SOLUTION 

CALL INTPL(1,WT, PHIWT(M),OM,PHS ll,H),DPHI(l,M),PHIPP(l,M) , 

1 PHIP3(1,H)] 

40 CONTINUE 

C THE SECOND EQUATION FIXES PHI TRAILING EDGE- PHI STAGNATION 

A21 = PHIWTd )-PHIWO(l) 

A22 = PHIWT(2)-PHIM0<2> 

B2 - -CF*CPHIWT(3)-PHIWP<3))+WELL 
BF = {Ail4B2-A21+81) / (A114A22-A214A12) 

AF - (A22*B1-A12*B2)/(A11+A22-A21*A12) 

DO 50 K = 1,NT 

PHIX(K) « AF*PHS(K,1) + BF=«=PHS(K,2) + CF*P|1S(K,3) 

PPHII(K) = AF*DPHI(K,1) + BF*DPH I C K, 2 ) + CF*0PHI(K,3) 

PHIIPP(K) = AF*PHipP(K,l)+BF+PHIPP(K,2)+CF*PHIPP(K,3) 

•PHITP3( K) = AF+PHIP3{Krr)+BF*PHIP3(K,2)+CF*PHIP3(Ki 3) 

50 CONTINUE 

C FIND THE LOCATION OF THE TRAILING EDGE 

NS7AG -NK 

CALL INTPLI<NSTA6,STAG,ZERO,NT,OH,OPHII,PHIIPP,PH1IP3,ZERO> 

WTOLO « WT 
WT = STAG(l) 

IF (NSTAS.LE.l) GO TO 70 
00 60 LL * 2,NST-AG 

IF (AB5(STAG(LU-WTOLO) »LT,ABS(WT-WTOLD) ) WT * STAG(LL) 
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CONTINUE 

IF (AeSlWT-WTOLO) »LT*T0L> GO TO 85 
CONTINUE 

Wf?lTE (N'ifZOO) WT 
DHAX = 0. 

RHINOS = PHIX(NOSE) 

RFAC = RELAX-1, 

KH = 1 

UCNT) = Ull) 

VCNTl = V(l) 

SX * SOFXH-CHPLX(COS(TOL)#SIN(TQLn > 

UCNOSE) = REAL(SX) 

VfNOSE) = -AIHAG(SX) 

KX = (WT“OM(l))/DW + l.-TOL 

DELX ^-.5*<AF*<RHX(NTj U-RHXCl»l) 1 + BF*<RHX ( NT/2 )-RHX(l# E ) ) + 

1 CF*fRHX(NT> 3 J-RHX(1>3) n 

DELY =-.5Y(aFY(RHY(NT^ 1J-RHY(1,1 ) ) + BF*(RHY(NT->2)-RHY(l*2) ) + 

1 CF*(RHY(NTj3)-RHY(1»3))) 

RAT - tOM (KX+1 l-WT) /DW 
XI " CMPLX(COS<WT),SIN(WT) ) 

XIBOOYd) = XI 

GET U AND V AT THE TRAILING EDGE BY LINEAR INTERPOLATION 
UBODYCI) = RAT*UCKX) + (1 .-RAT) *UCKX+1 ) 

VeODY(l) = RAT^VtKX) + { 1. -RAT ) *V C KX+1 ) 

DO 110 K = 1#NT 
J = K+KX 

IF U.GT.NK) J = J-NK 
IF (J.NE.l) GO TO 90 
DELX = -DELX 
DELY » -DELY 

90 XBDDYCK+1) = AF=«'RHX t J > 1) + BF*RHX ( J# 2 ) +CF*RHX ( 3 ) + DE LX 
YBDDY(K+1) = AF*RHY(4#1)+BF*RHY(J,23+CF*RHY{ J>3)+D£LY 
XI = CHPLX(COS{DN(J) )>SIN10H{ J) n 
XIB0DY(K+1) = XI 
VBGDYCK+1) = V(J) 

UB0DY(K+1) = UtJ) 

J = K+NOSE-l 
IF tJ.GT.NK) J = J-NK 
PHIIK * PH1X{ J)-PHINOS 
IF tJ.EQ.NK) PHINOS = PHINOS-GAM 
AX(K) = PHIIK-PHIUK) 

PHIKK) = PHIIK + RFACYAX (K> 

IF (K.LT.NK/2 > PHIKK) = AMAXK PHII £K )/ PHIKKH ) ) 

KM = K 

IF £ ABS(AXCK) ) .LT.DNAX3 GO TO 110 
KMAX = K 

DMAX - ABS£AXtKn 
110 CONTINUE 

X180DY<NT+1) = XIBODY(l) 

UB0DY£NK+2) = UBODYCI) 

VBODYCNK+2) » VB00Y£1) 

GET X AND Y AT THE TRAILING EDGE BY FOUR POINT INTERPOLATION 
B1 - .5+(l.+RAT) Y(2.-RAT) 

B2 = RAT*(RAT-l.)/6. 

XX - RAT^{XBODY(NK+1)-DELX)+(1.-RAT)*(XBODY(2)+DELX) 

YY 3 {2.-RAT)*IXBOOY(NK}-DELX)+{1.+RAT)+{XBOOYC3)+DELX) 

XX = B1*XX+B2*YY 
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XBOOY(l) = XX-OELX 
XB00Y(NK+2) = XX+DELX 

XX = RAT*CYBODY(NK+l)-DELY)+(l.“RAT)*{YBDOYt2)+OELY) 

YY = (2.“RAT)*(YBG0Y(KK)-DELY)+(1.+RAT)*(YBD0YC3)+DELY) 

YY = B1*XX+B2*YY 
YBODYll) = YY-DELY 
YB00Y(NK+2) = YY+DELY 
OMAX = AX(KHAX). 

WTAIL = WT 
PHII (NT) = GAH 

C FIND MINIMUM VALUE OF X 
XHIN = XBDOY(l) 

00 120 K = 2^NT 

120 XMIN * AMINK XHIN,XBODY(K) > 

NTP = NT+1 

XHAX = .5*(XBODYC1)+XBOOY(NTP) ) 

SCALE = I./ (XHAX-XHIN) 

NOSE = NOSe-KX 

IF (NOSE.LT.l) NOSE = NOSE+NK 
XNQSE = XBODY(NOSE) 

YNOSE = YBQDYCNOSE) 

SF « CX+SCALE 

X0LD(2) = SCALE*(OELX-XNOSE) 

Y0LD(2) = SCALE*(OELY-YNOSE) 

CL = SCALE*(CF+CF )*<PHS(NK+1^3J-PHS (1*3)) 

00 130 K * 1*NTP 

X80DY(K) = SC ALE<= (XBODY (K)-XNDS E) 

130 YBODY(K) = SC AL E* C YBQD Y ( K ) -YNOS E ) 

XITAIL = XIBDDY(l) 

AF “ AF#SF 
BF ^ BF’t'SF 
CF = CF*SF 
OIS = 1, 

IF (NB.NE.l) DIS * -CABS(XIB-XIA) 

FAREAL = -AF/DIS 
FAIMG = “BF/DIS 
FBIMG = -CF 

IF (NB.NE.l) FBIMG » FBIHG-FAIMG 
REWIND N1 
READ (Nl) 

READ (Nl) 

WRITE (Nl) QR*OS*RATC» ITER*NT* (PHIK J )*QI( J) * J = I*NT) 

WRITE (Nl) WTAIL* ( X IBDD Y U ) * UBOD Y( J) * VBOD Y { J )* XBOD Y ( J ) * YBODY ( J ) * 
1 J = 1*NTP)*NBPS» (BP( J), J S' 1*NBPS) 

RETURN 

200 FORMAT-(* -W-T- DID NOT- -C-ON VERGE*-WT=-+* E-20.-10-}- 
END 


SUBROUTINE HAIN( I TYP » 1 PASS ) 

C ORGANIZES INTEGRATION OF DIFFERENTIAL EQUATIONS ALONG PATHS IN THE 
C COMPLEX PLANE 

COMPLEX U* V* FI, F2*F3,S1*S2*S3*LAMDAP* LAHDAH* XI* E TA* TAU*PHI* PSI 
COMMON PHI (585*1)*SKA(390) *PS1(585*1) *SKB(390)*XI(585)*ETA(535)* 
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1 U(585),V{585 WF1(585)> SI (585 )>F2 1585 )>SZt 585 )>F 3(585 )>S3{ 5851 » 

2 LAMDAPt 585)» LAMDAH 1585 ] jTAU( 58 5) 

COMPLEX I#ROOT#ROOT2>Xl,Yl>SIGj SIGP> USIGj VS I 6jRHDSIG>S OF XI j SQFXIP 
REAL MACH 

COMMON ikt GAMHA>MACH>ROOT 

COMMON /B/ FAREAL»FAIMG»SAREAL>SAIM6jFBIMG/SBIM6#XBIMGjYBIHG 
COMMON /C/ PI^GRIDjTOL 

COMMON /D/ II j IPLT# JJ> KaH#KK»L8M»f10DE^MRP#NB# NC^ NF^ N J f NK, NN, NP> NX 
COMMON /F/ UOLO#VOLD,SINGF,SIN6S^SINGX,SINGY,PHIOLO(20),PSIQLO(20) 
1 > XOLD(20),YOLD(2O),XAIHG,YAIHG,THLAST^CL»DF 
COMMON /G/ M1 jN3>N4>N7>(11 
DATA 1/(0, #1,)/ » SJUMP /O./ 

IF ( IHODE.GT.l) .0R.1 IPASS.GT.2) .OR. (HOOE.EQ.-IO) ) GO TO 10 
IF (MDDE.LT.O) THDLO=AIMAG (CLOG ( XI ( NC )-XI (NB 3 ) ) 

IR = (PI+PD/GRIO +1.-TQL 
IR = HRP + (1 + IR/HAX0(NFjNK) ) 

IF (MDDE.LT.O) IR = MRP 
OIS — CABS(XI(NB)-XI(1) ) 

U8 s U(NB) 

VB = V(NB> 

OSB = UB*UB+Ve*VB 
RHOB * RHQ(QSB) 

UA = REAL (U(l) ) 

VA = REAL (Vn ) ) 

OS * UA*UA+VA*VA 
GAM = CGAMHA-1. ) /2, 

CS = l./(HACH*HACH)+GAH-GAM4QS 
RHDA - RHD(QS) 

QSA = OS 

IF (N6.NE.I) GO TO 10 
XBIHG « 0. 

YBIHG = -TOL 
SI6 = SOFXKXKD) 

OIS = 1. 

CALL GETHSO(CMPLX(QS^O. )>USIGjVSIG) 

USIG - C0NJG{SIG)/(2.*R£AL(VSIG)*CHPLX(UA^VA)) 

VSIG = ,5*I*CKPLX(UAjVA)/C0NBG{SIG> 

RHOSIG = -(UA+USIG+VA*VSIG)/CS 
SIGP = SQFXIP(XI(1) ) 

C READ IN THE NEXT PATH 

10 IF (ITYP.GE.O) CALL GTPATH (XI> NC+1> NN» 1 ) 

C GET U> V# Flf Slj LAHDA+> LAMOA-f TAU AND ETA ON XI=CQNJG(XIA) 

U(1J * UA 
V(l) = VA 

IF (IPASS.GT.4) GO TD 70 
NJ = -NJ 

CALL LAHBDA{U#V^LAHDAPf LAMDAM^ TAU:» 1) 

SBIMG = 0. 

GO TO (20^ 30»40^ 50) IPASS 
20 Fl(l) = CHPLX (FAREAL^FAIMG) 

GO TO 60 

30 FlCl) = l./DIS 
FBIMG = 0. 

THOLD = THLAST 
GO TO 60 

40 Fl(l) * CHPLX(0., l./DIS.) 

FBIMG * 0. 
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GO TO 60 
50 FlflJ * 0. 

FBIMG = 1. 

60 FAREAL = REAL(Fltl) ) 

SlCl> = F1(11/TAU(1J 
SAREAL » REAUSKD) 

FAIHG = AIMAG(FiCl)) 

SAIHG = AIMAGCSKD) 

QS = UA*UA+VA»VA 

XI * (UA4FHl)-VA*(Sim /RHOA}) /QS 
Y1 = CUA*CSi{ D/RHOAI+VA+FICI) )/Q5 
XAIHG ^ AIMAG(X1> 

YAIHG = AIHAG(Yl) 

F1U3 = FAREAt 
SU13 = SAREAL 
THLAST = THOLD 
IF (NB.EQ.l) 60 TO 70 
SBIMG = -SAIM6 

IF (HOOE.GT^OJ FBIHG * FBIHG-FAIHG 
QS = UB4UB+VB4VB 

XBIMG = (UB+FBIMG- VB* (S BI MG/RHO B 3 ) /QS 

YBIHG = (UB=^(SBIHG/RHDB)+VB*FBIH6) /QS 

IF CHODE.GT.O) GO TO 70 
XI » CMPLXfUA, VA>*CMPLX{YBIHG/XB1HG) 

Y1 = CMPLXtUB, VB)»CHPLX(YBIHG^XBIMG) 

TURN = AIHAG<X1)-AIMAG(Y1) 

DF = l.-SQRH OSA/QSB) + PI^TURN/ SORT ( QSB ) 

70 IF (MODE. 6T, -10) CALL GETFS0{2#NN) 

IF CNB.NE.l) 60 TO 80 
IF CHDDE.GT,-10) CALL GETFS2(2#NN) 

XX = FBIMG + AIMAGtSIGP*<USIG*Xl+VSEG+YD) 

YY = AIHAG tSIGP«'( <USIG+UA4RHDSIG)4Y1-1 VSIG+VA*RHDSIG)4X1) ) 
XAIHG = (UA4XX-VA=(‘YY)/QS 
YAIM6 = (UA4YY+VA*XX)/0S 
80 IF 1HQOE,LE.O) II = JJ 
fJUMP = FAIMG+FBIMG 
XJUMP * XAIMG+XBIMG 
YJUHP = YaIMG+YBIMG 
IF <MOOE.LT, -91 RETURN 

IF CHODE.GT.O) WRITE (N13 FJ UHP# SJUMP»XJUMP# YJUHP 
LIM = MAXOCNX^HDDE+13 
DO 90 L = 1>LIH 
XOLDCL) = 0. 

90 YOLDCL) = 0, 

SINGX = XQLD<2) 

-SINGY-'=--Y0L'Dt'2) - 

C CHECK FOR SUPERSONI.C PAJH 

IF (KK.GT.Ol GO TO 100 

C SUBSONIC PATH# COMPUTE SOLUTION IN THE TRIANGLE 

CALL TRIANG<2#NN) 

RETURN 

C SUPERSONIC PATH# READ IN THE OTHER PATH 

100 CALL GTPATHtXI#NC+i#HH# 1} 

C SOLVE IN THE RECTANGLE XI ( 2 ) <XI<XI ( J J ) , ETA ( 2) <ETA<ETA<NN 3 

00 110 J = Z#JJ 

C GET U#V#F1#SI#LAHDA+#LAHDA-#TAU ON XI-XIA 

CALL GETFSKJ) 
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Z KEEP TRACK OF THE BRANCH OF THE S'OUARE ROOT FOR LAHDA+jr LAMDA- 
RD0T2 = ROOT 
CALL LINEJ{ JjE^NN) 

IF (J.6E.NC) CALL G6TP$UMC#J) 

IF (J.EQ.NB) CALL GETFS2tNB+l,NN3 
ROOT = ROOTZ 
110 CONTINUE 

J s j J 

L = NN 

H - 1 + {HM-JJ)/IR 
LN = II 

IF IMOOE.GE.Ol LN ^ NN 
NCP * NC+1 
DO 120 K = NCPjLN 
120 CALL GETPSIIKaJ) 

IF (MODE.NE.O) WRITE (Nl) KK,N 
GO TO 140 
130 L » L-1 
J = J + 1 

CALL GETFSKJ) 

RD0T2 = ROOT 
CALL LINEJU^E^L) 

ROOT - R00T2 
IF (MGDE.GEtO) LN = L 
CALL GETPSI(LN»J3 
140 IF (HOOE.LT.O) GO TO 150 
THSUP = THLAST 

IF (MODt J-JJ> IR3 .NE.O) GO TO 160 

WRITE (N13 UOLO^VOLO, (PHIDLDIK)^ PSIDLOfK] jXDLD(K),Y0LD(K3:» 
1 K = NX3#SIN6 FjSINGS»SINGX# SINGY 
GO TO 155. 

150 IF {MOO(J-JJ^ IR3 .NE.03 GO TO 160 

WRITE (Nl) UOLO#VOLO#SIMGX#SIN6Y»SINGF>SINGS#XI (J 3>ETA<II) 

IF CL.EQ.IIJ GO TO 160 
XX = SINGX 
YY = SIN6Y 

CALL SAVE (II + 1jL>J) 

SINGX - XX 
SINGY = YY 
155 M = H-1 
160 CONTINUE 

IF (J4Eq»hn) return 

IF tll10DE.LT.03.AND.(HaDCJ-JJ>IR3.£Q.03} WRITE (N13 KK,M 

GO TO 130 

END 


SUBROUTINE TRIANG (K1^K2) 

SOLVES CHARACTERISTIC INITIAL VALUE PROBLEM FOR SUBSONIC FLOW 
COMMON /A/ SKP(2JjROOT 
COMMON /C/ PI>GR10^T0L 

COMMON VD/ II, IPLT, JJ»KBH,KK,LBM,MDDe>HRP,NB,NC, NF, N1,NK,NN,NP,NX 
COMPLEX U,V,F1,F2,F3,S1,S2,S3,LAM0AP,LAMDAH,XI,ETA, TAU, PH I, PS I 
COMMON PHI(585,13,SKA(390),PSI £565, l),SKB(390)>Xl(585),ETAt585), 



116 


1 U(5 85)#V( 585 FI { 585)/ 51(585) jF2 (585 )#S2l 585), F3( 585), S3 (585 J, 

2 LAHDAPC5e5),LAMDAH(585) ,TAU(585> 

COMPLEX TEMP » ROOT 

LOFF = 

IF (HDDE.LE.O) LOFF = 0 
DO 30 J = K1,K2 

C SET THE BRANCH FOR THE SQUARE ROOT IN LAHDA+ ANO LAMOA- 

ROOT = (0»,1, ) 

C GET VALUES OF U, V, FI , Si» LAHDA+, LAMD A-, TAU AT XI ( J ) , ET A ( J-1 ) BY 

C REFLECTION OF THESE QUANTITIES AT XI ( J-l> , ETA ( J ) 

U( J-1) = CONJG(U( J) ) 

V( J-1) * CONJG(V(J) ) 

Fl(J-l) = CaNJG(FKJ) ) 

Sl(J-l) = CQNJG(SHJ)) 

TEMP = CONJG( LAHDAP ( J ) ) 

LAMDAP(J-l) = CONJGCLAHOAtKJ n 
LAMDAH(J-l) - TEMP 
TAU(J-l) = CONJG(-TAU< J) ) 

C CHECK TO SEE IF WE ARE PAST XKNB) 

IF (J.LE.NB) GO TO 10 
C GET F2 AND S2 BY REFLECTION 

F2{J-1} = CDNJGCf 2(3) ) 

SZ( J-l> = C0MJG(S2 ( J)) 

C CHECK TO SEE IF WE ARE PAST XHNC) 

10 IF CJ.LE.NC) GO TO 20 
C GET F3 ANO S3 BY REFLECTION 

F3(J-1) = C0NJG(F3(J)) 

S3(J~1) = C0NJG(S3(J)) 

IF CNX.LE.O) GO TO 20 
00 15 LX ^ 1>NX 

PHItJ-l,LX) ^ CGNJGtPHK J#LX) > 

15 PSI C J-1,LX+L0FF ) = CONJG( PSI CJ,LX+LOFF) ) 

C GET SOLUTION AT XKJ) FROM ETA(J) TO ETA(K2) 

20 CALL LINEJt J, J,K2) 

IF CJ^GE.NC) CALL SAVE 
IF (J.EO.NB) CALL GETFS2 ( J+1>K2) 

30 CONTINUE 
END 


SUBROUTINE LINE J C Jl, Kl, K2) 

C SOLVES INITIAL VALUE PROBLEM ALONG A COMPLEX CHARACTERISTIC 

CO^HON/A/ GAMMA, MACH,ROOT _ 

COMPlEX ROOT 

C-OMMON /B/ FAREAL,FA-IrtG,SAREAL-,SAIMG,FBIHG, SBIMG,XBIMG,-YBIHG 
COMMON /C/ PI,GRID,TOL 

COMMON /O/ II, IPLT, J J,KBH,KK,LBM,MO0E,MRP,NB,NCNF,NJ,NK,NN,NP,NX 
COMPLEX U,V,F1, F2,F3,S1,S2,S3,LAH0AP,LAH0AM,XI,ETA,TAU, PHI, PSI 
COMMON PHi(585,l ),SKA(390),PSI(585,1),SKB(390) , XI(585),ETA(585), 

1 U(585),V( 585),F1( 585), Sl(585),F2(5a53,S2( 585) ,F3{565 ),S3 (585 ), 

2 LAMDAP(585), LAMDAH(S83),TAU(535) 

COMPLEX 0XI,EF,GE,RH1, RH2,RH3,RHA,LAHBP,LAMBM, LAHBPH, LAMBHH, U3, V3 
1 , I,XIH,£TAH,PHINC(30),TAUL,DY,ETGE,TAUH,TAUP,DTAUI 
COMPLEX T1,T2,WS3,W3,LAHF,L23,L13,WS13,W23,W1,W2,WS1,WS2,LAML,LAM2 
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COHHON /WWS/ WZ^WSZ^LAMZ 
DATA I /(0.,1.)7 
J = J1 
LOFF = -1 

IF IHODE.LE.O) LDFF = 0 

IF ( ( J.NE.NC) .OR. <Kl.GT.NCn GO TO ZO 

NEX s 1 

KZ = HAXO(l-MDDE,0)’t=KK 
IF (NB.EQ.l) NEX = 2 
DO 10 LX = 1>NX 

CALL INITFN( ETA(NC)# PHINC(LX)jLX 3 
PSI tNC#LX+LOFF> = 0. 

PHKNC.LX) = PHINCtLX) 

IF (KZ.GT.03 60 TO 10 
PHKNCiLX) = REAL(PHINC(LX)) 

10 CONTINUE 
F3CMC) = 0. 

S3(NC) = 0. 

20 DXI * XIIJ )-XI t J-1) 

XIH “ .5=t=(Xl( J)+XI( J-13 ) 

DO 120 L = K1»K2 

IF( (KK.GT.OJ.AND.tHDDE.lT.O)) GO TO 21 
SOLVE FOR U AND V TO FIRST ORDER ACCURACY 
RHl = V(L3-LAMDAP(L>*U(U 
RH2 » V(L-l)-LAt1DAH(L-l)*U(L-l) 

U3 = (RHl-RH2y/lLAMOAM(L-13-LAHDAP(L) ) 

V3 = RHl+LAMDAPU )*U3 

COMPUTE LAHDA+#LAf1DA- TO FIRST ORDER ACCURACY AT XI(J),ETA<L) 

CALL LAMBDA (U3> V3# LAMBPjLAMBH^TAUL^-D- 

COMPUTE MIDPOINT VALUES DF LAMBDA+ AND LAMBDA- 

LAHBPN = .5>^(LAHBP+LAHDAPtL) J 

LAMBHH = .5*(LAMBM+LAH0AH(L-1 ) ) 

SOLVE FOR U AND V TO SECOND ORDER ACCURACY 
RHl = V<L )-LAHBPK“«^U( L) 

RH2 s V(L-13-LAHBMH«U(L-1) 

U(U * (RH1-RH2 3/ (LAMBMH-LAMBPH3 
V(L3 = RH1+LAHBPH*UCL> 

FIND LAMBDA+ AND LAMBDA- AT XKJ)^ETA(L) 

CALL LAMBDA (UCUiVtL)^ LAHOAP ( U > LAMDAM( U ^ T AUL# 1 3 
GO TO 22 
21 CONTINUE 

W51=U(L )+CMPLX(-AIMAG(V(LM»REAL(VCL)3 3 
W1=U(L)-CMPLX (-AIMAGtVIL) 3*REAUV(U 5 3 
CALL LAMB0tWl»WSl#LAHl,TAU#-13 
T1=LAM27 (W2<^W23 
TZ^LAMl/ {WS1*WS13 

WS3=J-Tl+(T2+WSl-Wl)-tTl+W2-HS2) 3/< 1»-T1^T23 

W3=T2«tWS3-WS13+Hl 

CALL LAHBD{W3>WS3>LAHF»TAUL#-13 

LZ3=0.5*tLAM2+LAHF) 

L13=0.5+(LAM1+LAMF) 

WS13=0.5+(WS3+WS1) 

W23=0.5*<W3+H2) 

T1*L23/{W23*W23) 

T2=L13/ (WS13*WS133 

T1=(-T1*(T2*WS1-W1)-CT1*W2-WS23 )/<l,-Tl+T23 
W2=T2*(T1-WS1 3+Wl 
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WS2^T1 

CALL LAHBD{W2>WS2#LAM2,TAUL^1) 

U(L)= CW2+WS2) /2. 

V(U=(WS2-W2) /«2.*I) 

22 CONTINUE 

C COMPUTE MIDPOINT VALUE FOR TAU 
TAUP = .5*(TAU(L-1)+TAUU 
TAUM = -.S’KTAUa J+TAUL) 

TAU(L1 - TAUL 

DTAUI = l./ITAUM-TAUP) 

IF (NJ.GT.O) GO TO 40 
C COMPUTE FI AND SI AT XI(J)#ETA{L) 

RHl = FI (LJ+TAUH*SltU 
RH2 = F1(L-1)+TAUP+SKL-1) 

SKL) = (RH1-RH2)*DTAUI 
FKU = RH1-TAUH*S1CL) 

C CHECK TO SEE IF WE HAVE REACHED XIB 

IF{ t J.LE.NBKOR. tL. LT.NB) ) GO TO 120 
C COMPUTE F2 AND S2 AT XKJ)^ETA(L) 

RH3 = F2<L>+TAun*S2CL> 

IF (L,GT«NB3 GO TO 30 

C COMPUTE F2,S2 ON ETA = XIB>XI = XKJ) 

RH4 - I^'IFBIHG+TAUm^SBIMG) 

S2(L) = ( RH3-RH4)/ CTAUn-TAU(U J 
F2(U = RH3-TAUH+S2CU 
GO TO 120 

30 RH4 = F2(L-l)+TAUP*S2a-l) 

S2(U ■* <RH3-RH4)>(=DTAUI 
F2(L) - RH3-TAUM*S2(U 
iFCt J.LT.NC3.0R, tL.LT.NCn GO TO 120 
C COMPUTE THE INHOMOGENEOUS TERM 

EF = (RH1+I*(FAIMG+ TAUM *S AIHG3) / ( XI (1 )-X IH ) =«^’i'NEX+ ( RH3+I * ( FBIMG 
1 + TAUH'i'SBIHG) )/ <XI (NBJ-XIHJ 
IF IL.NE.NC) GO TO 50 

IF (J.E0.NC1 GO TO 120 

IF (KZ.LE»0) EF = .5*EF 
33(L) = S31L) +DXI*EF/TAUH 
35 IF (KZ«GT*0) GO TO 120 

IF (J.E0.NC3 GO TO 120 

DO 38 LX = 1,NX 

CALL INITFN<CO,NJG(XItJ))#DY»LX) 

DY = .5*{PHINC(LXJ+C0NJG(DY) ) 

PSHL,LX + LOFF) * PSI (L^LX+LOFF)-(DY-PHI IL>LX) )/TAUH 
38 PHUL^LXJ = DY 
GO TO 120 

40— IF^mTCTTNC ) .OR.JU.LT.NCr) GO TO 120 
IF (L.EQ.NC) GO T.Q 35. 

IF (J.NE.NC) GO TO 100 

GO TO 70 
50 GE = (0.>0.) 

C CHECK FOR SUBSONIC PATH 

IF (KZ.GT.O) GO TO 60 

C PATH IS SUBSONIC^ GET SYMMETRIC EF AND GE 
EF - *5*EF 

ETAH = .5*(ETA(L)+ETA (L-l> ) 

GE = .5* ( {RH2-I+tFAIHG+ TAUP +S AIHG)) / ( ET A < 1 )-ETAH ) **N£X + (RH4 
1 -I*(FBIMG+ TAUP +SBIMGH /{ETAINB)-ETAH) > 
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60 IF CJ.NE.NC3 GO TO 90 

GET F3»S3 ON INITIAL CHARACTERISTIC XI = XIC 
ETGE = <ETA<L )-ETA (L“l) 

F3(L) = 0, 

S3CL) * S3tL-U+ETGE/TAUP 

GET PSI AND PHI ON THE INITIAL CHARACTERISTIC XI=XIC 
70 00 80 LX = l^NX 

CALL INITFN<ETA(L )7 PHI (L,LX3, LX) 

IF (KZ.LEfO) PHKL^LX) = . 5* ( PHI ( L^ L X J +CON JG I PHI NC ( LX )) ) 

•80 PSI{L»LX+LOFF) -= PS I { L-I 7 LX+L OF F )- ( PHI ( L> LX) -PHI (L-l» L X 3 ) /T AUP 
GO TO 120 

COMPUTE F3 AND S3 AT XHJI^ETACU 
90 DY = DXIX-EF 

ETGE = {ETA(L>-ETA(L-1))*GE 

RHl = F3(L)+TAUH*53a)+DY 

RH2 = F3(L-1)+TAUP+S3(L-1) +ETGE 

S3(L) = (RHI-RH2)*DTAU1 

F3CLJ = RHl-TAUH*S3t L> 

100 00 110 LX = 1>NX 

RHl = PHI{L#LX)+TAUH*PSIt L^LX+LOFF) 

RH2 = PHI(L-l^LX)+TAUP*PSIlL-l7LX+L0FF) 

PSKL^LX+LDFF) = 1RH1-RH2 ) *DTAUI 
PHKL^LX) = RH1-TAUM*PSICL»LX+L0FF) 

110 CONTINUE 
120 CONTINUE 
RETURN 
END 


SUBROUTINE SAVE IKl^KZ^KB) 

SAVE THE SOLUTION IN THE REAL HODQGRAPH PLANE FROM ETA(Kl) TO 
ETA(K2) ALONG XI(K3> ON TAPE 

COMMON /8/ FAREAL^FAIHG^SAREAL^SAIHG^FBIMG^SBIMGiX&IHG^YBIMG 
COMMON IZI PI»GRID7TGL 

COMMON /O/ II>IPLT7 LBMtMODE^MRP^NB^NC^NFjNJ^NKiNN^NP^NX 

COMMON /F/ UDLD# VaLD7SIN6F7SIN6S7SIMGX#SINGY7PHI0LD(20) 7 PSIQLD{20 ) 
1 t X0LD(2037YDLD(20>7XAIMG7YAIMG7THLAST»CL7DF 
COMMON /G/ Nl> N3,NA7N7,H1 
COMPLEX XITAIL 7 BP 7 XIA 7 XIB 7 XIC 

COMMON /H/ BP t 129)» XIA>XI87XIC7XITAIL,C0NE7CTW07CTHR7 RATC# QR 7 N 8 PS 
COMPLEX Ui V> Fi> F2»F37Sl7 52^ SBj LAMOAP 7 LAMOAH 7 XI 7 ETA, TAU, PHI 7 PSI 
COMMON PHI(585>1)7SKA(390)#PSI(565#1)7SKBC390) 7Xl(585)7£TA(5e5>* 

1 U(585), V(585)7Flf5e5),Slt585),F2(585),S2t585),F3(585)7S3(585), 

2 LAHDAPt585),LAMDAH(585) >TAU(5B5) 


REAL L0G17LQG2 
COMPLEX TEMP, ROTATE 

COMMON /TT/ ROTATE, THETA, TH£TAP,DUM(8) 
LOGICAL ISW 

DATA UOLD/0. /, V0LD/0./,UNEW/0./> VNEW/0. / 

IF tNJ.GT.O) GO TO AO 
LOFF = -I 

IF tMODE.LE.O) LOFF • 0 

TEMP ^ CLOG ( £XI1K3)-XI£1))/1XI(K3)-XI(N8))} 
LDGi = REALITEHP) 
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C 

c 


c 


repboducibility of the 

ORIGINAL PAGE IS POOR 


IF tK3.NE.NCJ GO TO 10 
IR * tPl+PI)/GRIO +1.-TQL 
IR = HRP*(1+IR/MAX0(NF^NK) ) 

H = 1 + (NN*II)/IR 
THETA = AlHAGtTEMP) 

THETAP = AIMAGICLOGtXI (NC )-XICNB) ) ) , 

ROTATE = CHPLXtCOStTHETAPJ^-SINtTHETAPJ ) 

10 ISW = .TRUE* 

DTH » THETA-AIHAGtTEKP ) 

THETA = AINAG(TEMP) 

IF {ABS (DTH) .LT.PIJ GO TO 20 

FJUHP = FAIHG 

SJUMP = SAIfIG 

XJUMP = XAIHG 

YJUHP ^ YAIMG 

OTH = (PI+PI)*DTH/AflS(OTH) 

ISW = .FALSE. 

20 TEMP = CL06<{XIIK3)-XI(NB)>*RDTATE) 

L0G2 = REAL(TEMP) 

IF {K3.NE.JJ) GO TO 30 

IF tHDDE.EQ.l) THLAST = AIMAG (TEMP) +THETAP 

THETAP = AIMAG(TEMP)+TH£TAP 

ROTATE = CMPLX(COS(THETAPJ#-SIN(TH£TAP) ) 

TEHP = L0G2 

DTH = THETAP-THLAST 

IF (ABS(DTH) .LT.PI) GO TO 30 

THIS PATH AND THE LAST FORM A CLOSED LOOP ABOUT 
SET ISW TO MAKE AN APPROPRIATE ADJUSTMENT FOR X 
ISW = .FALSE. 

DTH = ( PI+PIJODTH/ABSI DTH) 

THETAP = THETAP-DTH 


XI6 

AND 


Y INTEGRATION 


FJUMP = FBIMG 
SJUMP - SBIMG 
XJUMP = XAIMG+XBIHG 
YJUMP * YAIMG+YBIHG 
IF CNB.EO.l) GO TO 30 
. FJUMP = FAIMG+FBIHG 
SJUMP = SAIMG+SBIHG 
30 THETA2 « AIMAG(TEHPJ+THETAP 
IF (Kl.EQ.NN) THLAST = THETA2 
IF (NB.EQ.l) TEMP = 1. / C XI CK3) -XI ( I ) ) 

40 DO 140 L = K1,K2 
UNEW = REAL(U{ L) ) 

VNEW = REAL(VtLJ) 

UH = .5* (UOLO+UNEW) 

V.H = ..5*(.V.0LD+VNEWJ 

QS = UH'S'UH + UH^UH 

IF CN-J.GT.O) GO TO 90 

SINGFO = SINGF 

SINGSO = SINGS 

IF (NB.EQ.l) GO TO 50 

COMPUTE SINGULAR TERMS FDR CASCADE 

SINGF = REALt FKL) }*L0G1+(REAL(F1(L) )+REAL(F2(L) ) )*LDG2-FAIMG* 
1 THETA-(FAIMG+FBIMG)+THETA2+REAL(F3( L) ) 

SINGS = REAL( SKL) )*L0G1+(R£AL( $1(L) J+REAL (S2(L) ) J+L0G2-SAIMG+ 
1 THE TA-( SAIMG+SBIHG) *THETA2+REAL tS3t L) ) 

GO TO 60 
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C COMPUTE SINGULAR TERMS FOR AN AiRfQlL 

50 SINGF=R£AL ( ( Fl(L}+CHPLXl0.f FAIHG) )*T£HP)+REAL {F2 (U )*L0G2“ 

1 FBIMG*THETA2 + REAUFStD) 

SINGS*REAL( ( S11L)+CMPLX{0. »SAIHGn*TEMP l+REAL (S2 an*L0G2- 
X SaiHG*TH£TA2 + REAL(S3(LM 
60 IF tMOOE.GT.OJ GO TO 70 
IR = MRP 

SINGF - SINGF+REAUPHKLf 1)) 

SINGS = SINGS+REAL1PSI (L,D) +PSI0L0(2) 

70 IF (L.EQ.NC ) GO TO 90 
IF (ISW) GO TO 80 

C MODIFY THE SINGULAR PART OF X AND Y TO ACCOUNT FDR JUMP IN LOG 

SINGFO » SINGFO+DTH^FJUHP 
SINGSO = SINGSO + OTH+SJUMP 
SINGX = SINGX*DTH*XJUMP 
5INGY = SINGY+OTH+YJUMP 
80 DPHI = SINGF-SINGFO 

OPSI sISINGS-SINGSOJ/RHOlQS) 

SINGX = SINGX +CUH+DPHI-VH*DPSI)/QS 

SIMGY = SINGY + ( UH*OP S I+VH=«=DPHI ) /QS 

90 DO 110 LX * l^NX 

IF {L.EQ.NC ) GO TO 100 

DPHI = REAL(PHI(L^LX)>-PHIOLO{LX) 

DPSI = (REAUPSl CL»LX+LDFF))-PSIOLOILX3 )/RHQ(QS) 

XOLD(LX) « XQLDUX) + {UH*OPHI-UH*DPS I ) /QS 
YOLD(LX) = YOLDCLXJ + { UH=1‘0PS 1+ VH’^'DP HI ) /QS 
100 PSIQL0(LX3 = PS1{L»LX+LDFF> 

PHIOLOilX) = PHICL^LX) 

110 CONTINUE 

IF ( (L.LT.II) .DR.CMODE.EQ.OJ GO TO 130 
IF IMODCL-II^IR) .NE.O) GO TO 130 
IF (MODE. LT. 03 GO TO 120 
IF (L.EQ.II) WRITE <N1) KK,H 

WRITE CNl) UNEWfVN£W/(PHI0L0(J3#PSI0LD( J3#XOLDU3»YGLD(J3# 

1 J » 1jNX3»SINGF^ SIN6S> SINGX#SINGY 
GO TO 130 

120 WRITE (N13 UNEW# VN£W»SINGX^ SINGY>SIN6F>S1NGS^ XI{K33>£TA( L3 

130 UOLO = UNEW 
140 VOLO = VNEH 
RETURN 
END 


FUNCTION RHOCQSl 

C COMPUTE DENSITY RHO AS A FUNCTION OF THE SQUARE OF THE SPEEOjOS 
REAL MACH 

COMMON /A/ GAMMAjMACH 
DATA EHOLD /O./ 

IF ( MACH. EQ. EHOLD) GO TO 10 

EMOLD = MACH 

GAM ^ (GAHMA-1. 3/2. 

COSQ =1./(MACH*MACH) + GAM 
GAHI = 1./ (GAMHA-1. 3 
RHOINF = (MACH+HACH3 Y+GAHI 
10 CS - COSQ“GAM*OS 

RHO = RHOINF=«'CS**GAHI 
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RETURN 

END 


SU8R0UTINE GETFSO (K1,K2) 

COMPUTE COEFFICIENTS OF SINGULAR TERMS 

GET U^V^Fl AND SI ON XI=XIA FROM ETA(Kl) TO ETMK2) 

COMMON /B/ f AREAL, fAIHG,SAR£AL,SAIMG,fBlHG^S8IHGfXSIM6»YBlHG 
COMPLEX U, V,Fl,F2,F3,Sl,S2#Sa#LAMDAP»LAMOAH,XI,ETA,TAU, PHI, PSI 
COMMON PHI (585,1 ), SKA (390), PSI C 585,1 ),SKBI 390), XI (5853 , ETA (585), 

1 U(585),V{5851,F1(585),S1(585),F2(585),S2(585),F3(585),S3(585), 

2 LAMOAP (585), LAHDAM{ 585) , TAU < 585 ) 

COMPLEX I,S,T, TAUP ,RH1,RH2, SOFXI 
Data I / (0.,1 . ) / 

COMPUTE $ AT XI = XIA 
5 = SOFXKXKD) 

CALL LAMBDA! U(Kl-i),V£Kl-l),LAMOAP( Kl-1 ), LAMD AM ( Kl-1 ), T AU ( Kl-1 ), 1 ) 
00 100 L = K1,K2 
COMPUTE T{ETA(U) 

T = CONJGtSOFXKXKL) ) > 

ETA(L) = CONJGIXKL)) 

UCL) = U(L-l) 

V(L) - V(L-13 

CALL GETUV(S,T,U(L),V1L)) 

CALL CAHB0A(U(L),V(L),LAMDAP(L),LAMDAM(L),TAU(L) ,1) 

FINO FI AND SI along XI=XIA AT ETA(L) 

COMPUTE TAU+ AT MIDPOINT 
TAUP = .5*{TAU(L)+TAU(L-1) } 

RHl - Fl(L-l)+TAUP=i'Sl<L-l) 

RH2 - -It(FAIHG-TAU(L)*SAIMG> 

SKL) (RH1-RH2)/CTAUP+TAU(D) 

FICL) = RHl-TAUP'i=Sl(L ) 

100 CONTINUE 
RETURN 
END 


SUBROUTINE GETFSl (KIJ 

COMPUTE COEFFICIENTS OF SINGULAR TERMS 

GET U,V,LAH0A+,LAMDA-,TAU,F1 AND SI AT XI I K1 ) ,CONJ ( XIA) AND STORE 
THE RESULTS IN THE FIRST ELEMENT OF THE RESPECTIVE ARRAYS 
THE FIRST .ELEMEN1„0F. THE RESPECTIVE ARRAYS WILL CONTAIN THEIR 
VALUES AT XI(K1-1),C0NJG(XIA) 

COMMON /B7 FAREAL,FAIMG,SAREAL, SAIMG, FBIMG,SBIMG,XBIHG>YBIMG 
COMMON /C/ PI,GRID,T0L 

COMMON /O/ n,IPLT, JJ,K6M,KK, LBM, MODE, MRP, NB,NC, NF, NJ,NK,NN,NP,NX 
COMPLEX U, V,Fi,F2,F3,Sl,S2,S3,LAH0AP,LAHDAH,Xi, ETA, TAU, PHI, PSI 
COMMON PHI (585,1),SKA(390>,PSI(585,1),SK3( 390),XI(585),ETA(585), 

1 U(585),V(585),Fl(565),SiC585),F2C585>,S2(585),F3(585),S3(585), 

2 LAHDAPI 585), LAHDAM( 585), TAUtSaS ) 

COMPLEX I,S,T, RHl, RH2, SOFXI, TAUP, TAUM,DTAUDX 
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COMPLEX WZ>WS2#LAH2 
COMMON /WWS/ W2iWS2#LAM2 
DATA I /{O.^l. )/ 

COMPUTE S AT XHKl) 

S - SOFXI (XICKl) > 

COMPUTE T AT ETA = CONJGIXIA) 

T = coNj&($DPxi txni) > ) 

CALL GETUVtS^T^UtD^Vd n 

CALL LAMBDAIU ( 1 > / V ( 1 ) ^ LAUD A P (13 ^ L AMOAM ( 1 ) > T AUP# 1 ) 
IF{<KK.LE.O).OR.(MODE,GE.O))GO TO 1 
WS2=Utl) +CMPLX{-AIMA6( V(13 I^REALCVd))) 
W2=U(13-CMPLX(-AIMAGtV(l) ) »REAL(V(1 3 3) 

CALL LAHBDCW2>WS2#LAM2#TAU^-1) 

1 CONTINUE 

FIND FI AND SI AT ETA = CONJG(XIA3 AT XI(Kl) 

COMPUTE TAU- AT THE MIDPOINT 
TAUH - -.5*(TAU(13+TAUP) 

RHl - Fl( 13+TAUH#S1 (1 3 
RH2 = I*(FAIM6 +TaUP*SA1NG) 

SKI) = (RHl-RH23/(TAUM-TAUP3 
F1I13 - RH1-TAUH*S1C1 3 
STORE NEW TAU+ 

TAU(l) » TAUP 
IF (NB.NE.l) RETURN 
RHl = F2 tl)+TAUM*S2( 1) 

RH2 = CQNJG(OTAUDXCCONJGtU{U)^CONJG(V(l>n)=f‘(Sl(13-I*SAIMG3 
RHZ - I*tFBIMG+TAUP>^SainG3+RH2 
S2(l) = tRHl-RH23KTAUM-TAUP) 

F2(13 = RH1-TAUM+S2C13 

RETURN 

END 


SUBROUTINE GETFS2 (K1,K2) 

COMPUTE COEFFICIENTS OF SINGULAR TERMS 
FIND F2 AND S2 ALONG XI = XIB FROM ETA(Ki) TO ETACK23 
COMMON /6/ FAREAL>FAIMGjSAREAL»SAIMG>FBIMGjSBIMGjXBIHG-»TBIMG 
COMMON /C/ PI^GRID/TOL 

COMMON /D/ IIKPLT/ JJjKBH»KK# L6M>HOOE#MRP»NB^NC 
COMPLEX U,V>F1*F2>F3^S1> S2^ S3j L AMD A P, LA MD AM# XI» 

COMMON PHI(585»1 3 # S K A( 39 0 3 # P S I ( 585# 1 ) > S K8 ( 390 ) # 

1 U(585)#V( 585 3#F1(S85)# SK585>»F2C585)#S2<585)# 

2 LAMDAPC 58 53 #LAHDAH(5 85 3#TAU(585 ) 

COMPLEX I#RH1#RH2# TAUP#DTAUDX 
DATA I /(0.#1.)/ 

CHECK TO SEE IF VIE ARE AT XIB 
I F (Kl.GT. (NB + 13 3 GO TO 5 
FIND F2 AND S2 AT ETA = C0NJGCXIB3 
RHL = -l./TAU(NB3 
RHZ = 0. 

IF CNB.EQ.13 RHZ * OTAUDX ( U (1 3 # V ( 1 ) 3 * ( SI (1 3 +I*SA IMG )*RH1 
F2CNB3 = (AIHAG(RH2J-S3IHG-REAL(RH1)*FBIHG3/AIHAG(RH1) 

S2CNB3 = REAL(RHZ3-REAL£RH1*CF2(NB3+I*FBIHG3) 

5 IF (K2.LT.K13 RETURN 


#NF#NJ#NK#NN,NP,NX 
ETA# TAU# PHI# PSI 
XI(585)#ETA{585)# 
F3<585>#S3(5b53# 
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DO 10 L = K1#K2 

C COMPUTE TAU+ AT MIDPOINT 

TAUP = .5*(TAU(L)+TAUtL-l) ) 

RHl = F2( L-1) +TAUP=i'S2(L-i) 

RH2 = -1*( FBIHG-TAU(L j’J'SBIMG) 

IF (NB.EO.l) RH2 = RHZ f OTAUOX CU ( U > V( U ) *( SI (U + I+SAIHG ) 
S2(L) = (RH1-RH2) /t TAUP+TAU(L 3 ) 

F2(L3 = RH1-TAUP*S2U) 

10 COMTINUE 
RETURN 
END 


SUBROUTINE GETPSI 1L>J) 

C KEEP TRACK OF BRANCHES OF LOGARITHMS ON SUPERSONIC PATHS 

REAL MACH 

COMMON /A/ GAMMA, MACH 

COMMON /0/ FAREAL,FAIMG,SAR£AL,SAIHG,FBIHG»SBIMG,XBIMG,YBIMG 
COMMON /C/ P1,GRI0,T0L 

COMMON /D/ II, I PIT, JJ, KBH,KK,LBM,MQDE,MRP, NS, NC, NF,NJ,NK, NN, NP, NX 
COMMON yp/ UOLD, VOLO,SINGF, SINGS, SING X, SING Y, PHI OLD (20), PS TOLD (20) 
1 , XOLD(2D3,YOLD(20),XAIMG,YA1HG,THLAST,CL,DF 
COMMON /G/ N1,N3,N4,N7,M1 
COMPLEX XITAIL,BP,XIA,XIB,XIC 

COMMON /H/ BP C129),XIA,XIB,XIC,XITAIL,C0NE,C TWO,CTHR,RATC, QR,NBPS 
COMPLEX U, V, F1,F2,F3,S1,S2,S3, L AMDAP, L AMO AM, XI, E T A, TAU, PHI, P5I 
COMMON PHI (585,1) ,SKA(390J,PSI (585,13,SK8( 390),XI (585 J,ETA(585), 

1 U{565),V(585),F1(585),S1(585),F2(585),S2(585),F3(585),S3(585), 

2 LAMDAP (565 ), L AMOAM ( 535 ) , TAU ( 58 5 ) 

COMPLEX LOGl, L0G2,I,2,CL0G,CSINGF,CSINGS, OPHI,OPSI 
1 , CU,CV,CPHI(30),CPS1(30),CRH0,UH,VH,QS,CEXP , S INGFO, S INGSO 
COMPLEX FJUMP,S JUMP, ROTATE, FI L, F2L, S U, S 2L , R0T2, F3L , F4L, S3L,S4L 
COMMON /TT/ ROTATE, THETA, THETAP,DUM(8) 

DATA I /(0.,1.)/ 

C COMPUTE THE COMPLEX LOG OF 2 AND CHOOSE THE BRANCH WHOSE ARGUMENT 

C IS CLOSEST TO TH 

IF (J,NE,NC3 GO TO 10 
LDFF = -1 

IF (MODE.LE.O) LOFF « 0 

THETA = AIHAG(CL0G( (XI (NC )-XI (in /( XKNO-XI (NB) ) ) 3 
THETAP = AIMAG(CLOG(XltNC3-XI(N8)) ) 

ROTATE = CHPLX(C0S(THETAP),“SIN(THETAP3) 

ALPHA » -THETA 
-ALP-HAP- =--THETAp- 
R0T2 = CONJG( ROTATE) 

GAM = (GAHHA-l, ) /2, 

COSO * 1. /(MACH*MACH)+GAM 
GAMI = 1. /(GAMMA-1. ) 

RHOINF = (MACH*MACH)YYGAM1 
CU = U(NC) 

CV » V(NC) 

FAC = CTHR 
IF (MQDE.LE.O) FAC ’ 

10 UH = .5=f(CU+U(L) > 


0 
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VH = .5*^{CV+V(L)5 
QS = UH+UH+VH+VH 

CRHO = RHOINf+CEXP(GAMl*CLOG(COSQ-GAH*Q$) > 

IF (NJ.6T.0) GO TO 130 
ISW*0 

LDGl = CLOG (fXKJ) -XIC1)W(XI(J )-Xl(NB)3) 

DTH = THETA-AIHAGILDG13 
THETA = AIMAGaOGl) 

IF(HOOE,LT.O) GO TO 20 
IF (ABSIOTHJ. LT.PI) GO TO 20 
WRITE (NA,170) 

CALL EXIT 

20 IF tNB.EQ.l) LDGl = 1* / ( X I ( J 1 -X 1 ( 1 ) ) 

L0G2 = CLOG! ( XII J)-XI (NB ) )+RDTAT£) + CMPLX (0 THETAP ) 
IF CHODE.EQ.l) THLAST = AlHAGClOGZ) 

THETAP = AIHAGCL0G2) 

ROTATE = CHPLXICQS ( THETAP)*-SIN(THETAP) ) 

DTH = THETAP-THLAST 
IF CHODE.LT.O) GQ TO 30 
IF { ABS (DTHI .LT.PI ) GO TO 30 
DTH = (PI+PI) *DTH/ABS<DTH) 

THETAP = THETAP-OTH 
LQG2 « L0G2-CHPLX(0.»DTH) 

ISH=1 

XJUHP = XBIHG+XAIHG 
YJUHP * YBIHG+YAIHG 
SINGX*SINGX+DTHAXJUMP 
SXNGY=SINGV+OTH*YJUMP 
30 THLAST = THETAP 
40 IF tNB.NE.l) LDGl = LOGl+LOGZ 
FIL = F1CL)+I*FAIHG 
F2L = F2{L)+I*FB1HG 
SIL = SKL )+I*SAIMG 
5ZL = S2(U+I*SeiH6 
CSINGF * FlL*LOGl+F2L*LOG2+F3tL) 

CSINGS = S1L+LDG1+S2L*LDG2+S3 (U 
IF (H00E,L£,0) GO TO 90 
IF tNB.EQ.l) GO TO 50 

LDGl = CLOGnETA(L>-ETAm)/CETA(L)-£TA(NB) ) > 

OTH = ALPHA-AIHAG(LOGI) 

ALPHA = AlHAGtLOGl) 

IF {ABStOTH).LT.PIl GO TO 60 
WRITE{N4,170) 

CALL EXIT 

50 LDGl = 1./ lETAU )-ETA (in 

60 L0G2 = CLDG((ETA{U-ETA(NB))>i'R0T2)+CHPLX(0.^ALPHAP) 
ALPHAP = AIHAG(LOGZ) 

R0T2 = CMPLXCCOS(ALPHAP)»-SrN{ALPHAP) } 

DTH = ALPHAP+THLASr 
IF CABS(DTH) , LT.PI) GO TO 80 
DTH = IPI+PI)*DTH/AB5(DTH) 

ISW=1— ISW 

IFtlSW.EQ.O) GO TO 70 
WRITE (N4^ 160) 

CALL EXIT 

70 ALPHAP=ALPHAP“DTH 

LDG2 =. L0G2-CHPLX (0.^ DTHI 
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80 IF (N6.NE.1) LOGl ^ laGl+LOGE 
F3L = FKL )-I+FAIMG 
F4L » FZtU-I^FSIHG 
S3L = Siai-I*SAIHG 
S4L = S2(U-I*S&IHG 

CSIKGF => .5*(CSINGF + F3L*LDG1*F4L*L0GZ + F3 (L n 
CSINGS » .5=i'(CSINGS+S3L*L0Gl+S4L’!'LDGE + S3 IL ) ) 

GO TO 100 

90 CSINGF * CSIKGF + PHI U,#l) 

CSIN6S = CSINGS+PS1(L#1)+PSI0LD(2) 

100 IF (J*EQ.NC) 60 TO 120 
110 OPHI * C51NGF-SINGF0 

DPSI = (CSINGS-SINGSO) /CRHO 
SINGX = SINGX + (UH+DPHI-VH*0P5I) /QS 
SINGY = SINGY + < UH*DP S l+VH'i'DPHI > / OS 
120 SINGFO » CSINGF 
SINGSO = C'SINGS 
SINGF = REAL(CSINGF) 

SINGS = REAL(CSINGS) 

SINGS • S1N6S + FAC’«=AIHA6<CSINGS) 

130 CU = U(U 
UOLO = CU 
CV = VtL) 

VOID - CV 
DO 150 LX = 1#NX 
IF U.EQ.NO GO TO 140 
DPHI = PHI(L>LX)-CPHHLX) 

DPSI = (PSia»LX + L0FF)'CPSI(LX3 )/CRHD 
XOLO<LX)«XDLO(LX) + I UH+DPH I-VH*DPS I i /QS 
YDLD{LX)*YOLD (LX) + IUH=t^DPSI + VH*DPHI3 /QS 
140 CPHI(LX) = PHI(L#LX) 

CPSKLX) ^ PSI(L»LX+LQFF) 

PSIOLDCLX) ■ CPSHLX I 

PSIOLDtLX) * PSI0LD(LX)+FAC*AIMA6{PSI(L,LX+LQFF) ) 

150 PHIOLDtLX) * PHKL^LX) 

RETURN 

160 FORMAT ( //4X64H***AUTaHAT£0 SUPERSONIC PATH CROSSES CUT FROM XIC T 
THROUGH XIB***J 

170 FORMAT t//6X61H*=i‘«>!'AUTDHATED SUPERSONIC PATH CROSSES CUT FROM XIA T 
10 
END 


SUBROUTINE GETUV -(-S^T* U^ V)- 
C GIVEN S AND T FIND U AND V 
COMMON /G/ Nl^ N3^ N4>N7^H1 

COMPLEX S,T,U,V,QS»W#WSTR# HSQ# HSQPR/ QSNEW^ S T#C SORT 
EXTERNAL CSQRT 

DATA I /{O.^l.J/ f TOL /l.E-10/ 

QS * U*U+V*V 

w s 

WSTR = T 
ST » S*T 

IF tCABSIST) .GE.TOL) GO TO 25 
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CALL GETHS0{10*#0*)jH5Q»HSQPR) 

W « W/SQRTf REALttiSQPR} } 

WSTR * WSTR/SORT(REAL(HSOPR) ) 

GO TO 100 

DO AT MOST 20 NEWTON ITERATIONS 
25 DO 80 L * 1*20 

COMPUTE H(QS)**2 AND ITS DERIVATIVE WITH RESPECT TO OS* HSOPR 
CALL GETHSQ(QS*HSQ>HSQPR) 

QSNEW * OS-tHSQ-ST) /HSQPR 
IF (CABStaSMEW-OS).LT.TDL) GO TO 90 
80 OS * OSMEW 

WRITE <N4#110) ST 

QSNEW=U*U+V*V 

QS«QSNEW 

90 IF {CABS(ST)*LT.«D GO TO 95 
OS * QSNEW 

U = CSQRTtOS*lS/T)*W3 
WSTR - W“MT/S) 

GO TO 100 

95 W = S*CSQRT(OS/HSQ# (l.*0,3 ) 

WSTR = T*CSQRT(QS/HSQ» ll.#0. ) 3 
100 U ■ .5*IW+W$TR) 

V = .5*l*tH“WSTR) 

RETURN 

110 FDRMAT(A2H NEWTON ITERATION DID NOT CQNVERGE-AT ST =*2£12.A) 
END 


SUBROUTINE GETHSQ(QS*HSQ*HSOPR} 

COMPUTE H{QS>**2 AND ITS DERIVATIVE WITH RESPECT TO OS* HSQPR 
REAL MACH 

COMMON /A/ GArtMA*HACH*RR*RQOTl 

COMPLEX OS* HSQ* HSQPR* B PHI 1*B PHI 2* C SORT* R0DT2* TEMP »QSX*CS»R0QT1*RR 
EXTERNAL CSQRT 
DATA EMDLD/0./ 

IF (HACH.E0.EH0L03 GO TO 10 
CONST - 1. 

GAM * {GAHHA'l. >/2. 

COSO =1./(HACH*HACHJ + ’GAM 

QSTRSQ *{2./(GAHHA+l.) ItCDSQ 

EMU = SQRTtt&AHMA-l* )/CGAHHA+l. n 

FAC » EHU/QSTRSQ 

QSX * QS 

OS = (l.*0.) 

10 CS = COSQ-GAH+QS 

BPHIl - ICS+CS)/QSTRSQ-1. 

BPHI2 = {C$+CS)-QS 

R00T2 = CS0RTttCS+CS)*lBPHI2-QS )*RD0T13 
ROOTl * FAC*R0DT2 

TEMP - CEXP(CL0G(BPHI1-RD0T13/£HU> 

TEMP =C0NST/(TEMP*tBPHI2+R00T2) ) 

TEMP IS H**2/QS 
HSQ - QS+TEHP 

IF (MACH.EO.EHDLO ) GO TO 20 
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EMOLD s MACH 

C SET CONST SO THAT H(1J * 1 

CONST = l./REAL(HSQ> 
as * QSX 
GO TO 10 

C COMPUTE THE DERIVATIVE OF HSQ WITH RESPECT TO QS 

20 HSQPR * TEHP*R00T2y(CS+CS> 
return 

END 


SUBROUTINE LAMSDA( UL#VL>LAMDAPj LAMDAMjTAU* INO) 

C COMPUTES LAHBDA+ AND LAMBDA- GIVEN U AND V 

REAL MACH 

COMMON /A/ GAMMA, MACH^ROOT 

COMPLEX UL,VL,L AMD AP,LAHDAH,TAU,U,V>CS,QS, ROOT, CSORT,CLOG,CEXP 
EXTERNAL CSQRT 
DATA EMOLD/0./ 

IF (MACH.EQ.EHOLD) GO TO 10 

EHOLD = MACH 

GAM = (GAHMA-1, )/2. 

COSQ =1. /(MACH*MACH) + 6AM 
GAMI » -1. /{GAMMA-1, ) 

RHOINF = ( HACH*MACH)**&AHI 
GAMI == GAMMA+GAMI 
10 U = UL 
V = VL 

OS = u*u+v*v 

CS * COSO - GAH+OS 

ROOT = CSQRT(CS*(QS-CS),ROQT) 

LAMDAP = {U*V+ROOT)/(CS-V*V» 

LAMDAM = (U»V-ROOT)/(CS-V+V) 

IF (IND.LT.O) RETURN 

TAU = RH0INF*CEXP<6AMr*CLQG(CS} )*ROOT 

RETURN 

END 


SUBROUTINE LAMBD ( WL, WSL, LAM,TAU, IND) 

C COMPUTES LAM GIVEN W AND WS INSTEAD OF U AND V 
REAL MACH 

C-DMM0N/A7 GAMMA, MACH, ROOT 

COMPLEX WL, WSL, LAM, TAU , W, WS,CS, QS, ROOT, CS.QRT,.C LOG, C EXP, I 

EXTERNAL CSQRT 

DATA EM0L0/0./,I/(0.,l.)/ 

IFIHACH.EQ.EMOLD) GO TO 10 

EMOLD=MACH 

GAH=(6AMMA-1, )/2, 

COSO»1./{MACH*MACH )+GAM 
GAMI = -1./{GANHA-1. ) 

RHOINF= (MACH*MACH)+*GAHI 
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GAHI=GAMHA*GAHI 
10 W=WL 
WS=WSL 
QS- W*US 

CS-CQSQ- GAM*QS 
R0DT=CSQRT(CS*(0S-C$),RD0T> 
LAH=2**CS-QS-2«*I*R00T 
1F( IND. LT.ORETURN 

TAU=RHOlMf*CEXP(GAHl=«=CLaGC CS) )*RQ0T 

RETURN 

END 


COMPLEX FUNCTION DTAUDXC UL»VL) 

COMPLEX UL#VL#QS,CS^ S^SOFX I»SDFXIP> CEXP>C LOGICS DXIi CONST 
REAL HACH 

COMMON /A/ GAHMA^HACH^RQOT 
COMPLEX XITAIL> BP>XIA,XIB,XIC 

COMMON /H/ BP(129),XIAjXIB>XIC#XITAIL#C0N£» CTW0» CTHR> RATC/QR# MBPS 
DATA EMQLD/0./ 

IF <MACH.EQ. EHOLD3 60 TO 10 

EMOLD = MACH 

GAM = (GAMMA-1, ) /2. 

CDSQ = 1,/ (MACH+MACH) + GAM 
S • SOFXKXIA) 

DSOXI = SDFXIPtXIA) 

GAMl = -l./(6AHHA-l.) 

RHOINF - (HACH*HACH)**GAMI 
GAMi = GAHMA*GAMI 

CONST = CHPLXt 0w-.25+(GAMHA+l* ) ARHOINF) 

10 QS - UL*UL+VL*VL 
CS = COSQ-GAM+QS 

DTAUDX = CQNSTACEXPCGAHI+CLOGtCSn+QS^-QS^DSDXI/ CS*(Q5-CS) > 

RETURN 

END 


SUBROUTINE INITFN CETA^Z^U) 

COMPUTES THE INITIAL CHARACTERISTIC DATA ON XI = XIC 
Z IS THE VALUE OF THE INITIAL FUNCTION 
COMPLEX ETA>Z,XIP^I^T£MP^ETJ 
COMMON /C/ PI>GRID>TGL 

COMMON /D/ II^IPLT» JJ,KBM,KK,L6H,M00£,HRP>NBjNC>NF>NJ>NK>NNjNP>NX 
COMMON /E/ ETJ(64)#BUHP(5i 10)»N6MP 
DATA I /CO.,1.)/ 

LX = LJ+IABS(NJ) 

IF (MODE.LE.O) go TO 10 
J = {LX+lJ/2 
TEMP » 1. 

IF (LX.NE.J+J) TEMP = -I 

Z = TEMP*ETA**J 

RETURN 

10 XIP = CDNJG(ETA) 
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C 


SUM UP THE PQIYNOMIAL TERMS 
J = NF/2 
Z = ETJ(J) 

20 J « J“1 

Z ^ Z*XIP+ETJ(J) 

IF (J.GT.l) 60 TO 20 
Z = Z#XIP 
Z = C0NJ6(ZJ 
RETURN 
END 


SUBROUTINE GTPATH <XI>K1#K2^ K3) 

READS IN THE PATHS ON THE COMPLEX CHARACTERISTICS AND SETS UP THE 
INITIAL GRID 

PATHS ARE PRESCRIBED ON THE PLANE XI=CONJG(XIA J AND THE 
GRID IS SET UP IN THE PLANE ETA=XIA 
REAL MACH 

COMMON /A/ GAMMA^HACH 
COMMON /C/ PI^GRID»TOL 

COMMON /D/ II J IPLT^ JJ»KBM^KK.»LBM»MOOE#HRP^N8^NC>NF#NJ*NK» NN#NP*NX 
COMMON /G/ N1#N3>NA/N7#rtl 
COMPLEX XITAIL»BP/XIA#XIB#XIC 

COMMON /H/ BP( 129)^ XIA,XIB^XIC,XITAIL^CONE^CTWD>CTHRjRATC/QR^NBPS 
REAL MACHA^MACHB, HTAIL 


COMMON /K/ MACHA/MACHB^HTAIL* ANGLA> AN6LB> ANGLT>RN^TRANU» TRANLjNRN 
COMPLEX POINT, H>S,XI0FS>S0FXI, XI (1) 

DATA EHDLO/0,/ , K2MAX/0/ ,SNEW/0./ #S0LD/0./ 

IF (MODE. EO. 99) GO TO 80 
IF (HACH.EO.EHOLD) GO TO 10 
EMOLD = MACH 

OCRIT = (GAMMA-1 .)/ CGAMMA+1. ) + 2. / ( ( GAHMA + 1. ) ACH=»HACH ) 

CALL GETHSO ( CHPLX(OCRIT> 0. )>H, POINT J 
SCRIT = REAL(H) 

NPH * l+NP/2 


IX-CPI+PI) /,0^+l,-T0L 
PIX = (PI+PI) /FLOAT(NP) 

IR = {NK/MP)*( rx/NK+1) 

DSS* PIX/FLOATtlR) 

PIX2 = .5+PIX 

IF (M00(IR>2) .NE.O) PIX2 = PIX2+,5’f'DSS 
10 IF (MDOE.LT.O) GO TO 40 
IF (K3.E0.0) GO TO 50 
TH = FL0ATIH0DE-NPH)+PIX-PIX2- 
IF (KK.,GT_._0) TH = TH+.RIX, 

FAC = 1. 

IF (KK.GT.O.) FAC = -1. 

CALL PATH CXI,1.,TH> TH + FAC’!=PIX,K1,K2) 

KX * 0 

POINT = XKJJ) 

DO 20 J = JJ,K2 
S =: SOFXKXKJ)) 

IF <R£AL(S)*REAL{S)+AIMAG{S)*AIMAG(S).LT. SCRIT) GO TO 20 
IF(KX,EQ.O) POINT * XIQF S (CON JG t SCRI T/SDFX I ( XI { J ) ) ) ,XI ( J ) ) 
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KX = KX+1 

20 CONTINUE 

IF {KX.E0»0) GO TO 30 

THF = ATAN2tAIHAG{P0IHT)>R£ALIPaiNT) ) 

RADF = CABS(POINT) 

THF=THF-.l+FAC/(RADF++2) 

IF( (TH.LT.-PI) .AND, ITHF.GT.O. >) TH=TH+PI+PI 
IF (FAC*(THf-TH) .6T.0.) GO TO 30 

21 CONTINUE 

MODIFY THE SUPERSONIC PATH TO AVOID SINGULAR POINTS 
CALL PATHl XI,RADF,THF jTHF,K1,K2) 

CALL PATH (XI, 1,, TH, TH+F AC+PIX, K2+1,K2 I 
30 KK s KX 

K2MAX = MAX0{K2HAX,K2) 

IF (K2.LE.L8K/3) RETURN 
MSG = lOHAUTOMATION 
WRITE (NA,1401 MSG 
CALL EXIT 

CONSTRUCT SUPERSONIC PATHS 
AO IF (KK.EO.O) GO TO &0 

CALL PATH(XI, .96,THL+.07#THL+.07,K1,K2) 

CALL PATHCXI, l.OA, THL+ . 0 A, THF+ . OA, K2+1# K2 ) 

CALL PATHCXI#1.>THF,THL,K2+1,K2) 

GO TO 130 

50 IF<MDDE.LT.-1J L^L-1 
IF(M0DE.LT.-1 ) GO TO 60 
L = 0 

DT = ( PI+PI)/FLOAT( IX> 

ANGT*ATAN2CAIt1AG(XITAlL),REAL{XITAIU ) 

RAT=ANGT/DT 

IFIFLOATdNTlRATn.GB.RAT) GO TO 51 

ITEST=INT(RAT)+1 

GO TO 52 

51 ITEST*INT(RAT) 

52 CONTINUE 
THFO=FLDAT(ITEST>*DT 
P0INT=CMPLXCC0S(THF0)>SIN<THF0) ) 

THLO=THFO 

ICOUNT = 0 

H = CMPLXCCOS (DT),SIN(DT) 3 
SEARCH FOR SUPERSONIC POINT 
60 S = SOFXKPOINT) 

SNEW'TOL 
L = L + 1 

70 SOLO ■= SNEW 

SNEM = REAL(S)+REAL(S3 + AIf1AG(53<=AIMAG(S) 

IF( (ICOUNT. GT.O) .AND. ABS(SNEW-SCRIT).6T,ABS(S0LD-SCR1T3) GO TO 91 
IF (ICOUNT. GT. 0) GO TO 90 
THF=FL0AT(L-1 )+DT+THF0 
OTHF=-OT 

IF (SNEM.6T.SCRIT) GO TO 90 
POINT = P0INT*H 
IF ( L.LT. IX) GO TO 60 
MODE = -10 
80 JJ = K2MAX 
K2NAX = 0 
RETURN 
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90 DTKF =-DTBF^(SNEW-SCRIT} / 1SNEW-SDLD) 

THF - THF-DTHF 

S * SOFXI(CHPLX(CDS (THF)jSIN(THF) )) 

ICOUNT = ICOUNT+L 

IF < £ICQUNT.LT.2O),AN0.(ABS{DTHFJ.6T.TOL») GO TO 70 
60 TO 9Z 

91 THF=THF+DTHF 
WRlTEtN^^ 150) 

SNEW»TQL 

92 CONTINUE 
ICOUNT = 0 

C NOW FIND THE NEXT SUBSONIC POINT 

100 POINT = POINTER 
L - L+1 

S = S0FXKP0INT3 

110 SOLD = SNEW 

SNEW = REALtS )*REAL (S)+AIHAG(S)*AIMA6(S) 

IF ( CICQUNT.EQ.O) .AND. {SNEW.GT.SCRIT) ) GO TO 100 
IFnC0UNT.6T.0,AND.A8S(SNEW-SCRIT) .GT.ABSiSOLD-SCRIT) ) GO TO 111 
IFt ICOUNT. EQ.O) THL*F LQAT I L-1 ) *DT+THLO 
IFtICQUNT.EQ.O) DTHL*-DT 
DTHL >=-DTHL*(SNEW-SCRIT)/(SNEW-SOLD) 

THL = THL-DTHL 
ICOUNT = ICOUNT+1 

S = SOFXI(CHPLX(CQS (THL)>SIN(THU n 

IF < CICQUNT.lt. 20). AND. CABStOTHU.GT. TDD) GO TO 110 
GO TO 112 

111 THL=THL+OTHL 
WRITE(N4#150) 

SNEW=TOL 

112 CONTINUE 
ICOUNT = 0 

IF (K3.NE.0) GO TO 120 
XItU = CMPLX CTHF, THL) 

RETURN 

120 KK = -MODE 

CALL PATHCXI# .96# THF-.07> THF-. 07* Kl» K2 ) 

CALL PATHCXI# 1. 0 A#THF-.04# THL-. 0 A# K2+ 1»K2) 

CALL PATHCXI#!. #THL»THF#K2+1#K2) 

130 K2MAX = HAX0CK2HAX#K2) 

IF (K2.LE.LBH) RETURN 
HSG = lOHSUPERSONIC 
WRITE (N4#140) HSG 
CALL EXIT 

140 FORMAT C///5X5H**** #A10#23H PATH IS TOO LONG ***** ) 

150’ FDRMAT-(V/-/’!2X62H*+*+NEWTDN I-TERAT-IDN -FOR-S ONIC POINT- DID NOT CONVE 
IRGE WELL****)- 
END 


SUBROUTINE P ATH ( X I# RAD#TH# THL# Kl# K2 ) 

COMPLEX XIC1)#H# POINT# S»SOFXI,XIOFS# ROOT# ROOT! 

C CONSTRUCT POINTS XlCJ) ON PATH FDR J = Kl TO K2 

C IF PATH STARTS AT XIC HE START OUR PATH ON A CIRCLE OF RADIUS 
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: ABS(XIC-XIB) CENTERED ARDUND XIB 

: A STRAIGHT LINE IS THEN DRAWN TO A POINT RADIUS^RAD AND ARG=TH 

REAL HACH 

COHNON /A/ GAMMA# MACH,ROOT>RODTl 
COMMON /C/ PI#GRID#TQL 

COMMON /O/ II# IPLT# J J# KBH#KK# L8M# MODE# MRP# NB# NC# NF# NJ» NK# NN# NP# NX 
DATA EHQLO/0./ 

IF <MACHiEQ.EMOLD) 60 TO 10 
EMOLD - HACH 

IR = (PI+PD/GRIO + i.-TOL 
IR = CNK/NP)*(IR/NK+1J 
PIX = ( PI + PH /FLOATtNP 1 
DSS = (PIX+PIX)/FLDAT(IR) 

QCRIT = (GAMMA-l.)/C6AMHA+l.}+2./( fGAMMA+l.)*HACH+MACH) 

CALL GETHS0(CHPLX(QCRIT#0. )# H# POINT) 

SCRIT = REALIH) 

10 K = Kl-1 
KN = K1 
LMDDE = 0 

POINT = RAD*CMPLX(COS( TH) # SIN(TH) ) 

IF <K,NE4NC) go TO 30 
ROOTl = 1. 

H - XKNO-Xl ( NB) 

CA = CABSCH) 

ARGC = ATAN2I AIMAG(H)#REAL IH) ) 

H “ POINT-XI(NB) 

THX = ATAN2(AIHAG<H)#REAL(H} ) 

IF ( ARGC-THX.GT.PI ) ARGC = AR6C-PI-PI 
IF (THX-ARGC,GT.PI) ARGC = ARGC+PI+PI 
CARC = CA+CTHX-ARGC ) 

HH = ABS (CARC )/GRIO +.5 
MM « HM^HRP 
KN = Kl+HH 
K = KN-1 

IF (HH.EQ.O) GO TO 30 
DT = (THX“ARGC)/FLOAT(MM> 

H = CHPLX(CQS(DT3#SIN(DT) ) 

DO 20 J = K1»K 

20 XHJ) = XI(NB)+IXI(J-1]-XI(NB))*H 
30 H = POINT-XKK) 

ABSHSQ » REAL{H)*REAL(H)+AIHAGIH)*AIMAG{H) 

IF (ABSHSO.LT.l.E-LO) GO TO. 45 
C FIND THE MINIMUM DISTANCE FROM XIA TO THE PATH 
S = POINT-XIU) 

T = (R£AL(SJ*REAL{H)+AIMAG(H}*AIHAGtSn/ABSHSQ 
IF (T.GT.l.) GO TO 35 
T AHAX1(0.»T) 

S a POINT-T+H 
OIS = CAB$(S-XI(1) ) 

IF (OIS. GT. GRID) GO TO 35 
LMODE - 1 

FAC * l42*GRID/DIS 

POINT = XI(1)+FAC*(S“XIU)) 

GO TO 30 

35 MM - SORT (ABSHSQ) /GRID + l.-TOL 
MM = MM*HRP 
JJ = K + HH 
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If (HM.EQ.O) GO TO A5 
H ■ H/FLOAT(MMJ 
DO 40 J = KNjJJ 
40 XI{J) * XIlJ-1) + H 
45 KN = JJ+1 

If {LHODE.EQ.O) GO TO 48 
LHODE * 0 

POINT = RAD*CHPLX(COSITH)#SINnH) ) 

K s JJ 
GO TO 30 

48 IX = ASS(THL-TH) /DSS+.5 
IX • IX+IX 
K2 = JJ+IX*HRP 
IF dX.EQ.O] RETURN 
OS = {THL-THI/FLOAT(IX*MRP) 

H = CMPLXCCOS (DS)^SIN(DSn 
DO 50 J » KNjK2 
50 XICJ) = XICJ-1)*H 

IF( £ MODE. GT.O). OR, (Kl.EO.NC+1 ) .OR. tRAD.NE. l.n RETURN 
C PASTE POINTS TO THE SONIC LOCUS 

60 DO 70 J = KN, K2 
S - SOFXKXIU)) 

A6SSQ = REAM S)*REALtS3+AIHAG(S)*AIHAG£S) 

Xl(J) = XIQFS £S*SQRT£SCRIT/ABSSCI)? XI ( J-l) 3 
70 CONTINUE 
RETURN 
END 


C 


SUBROUTINE BODYPTC MX>NPTS) 

READS TAPEl DATA# FINOS BODY POINTS AND CONSTRUCTS P-N DIAGRAMS 
REAL MACH 

COMMON /AV GAMMA, MACH 
COMMON /C/ PI,6RID>T0L 

CQHMON /D/ II,IPLT> JJ, KBM,KK, LBM, MODE, MRP#NB, NC, NF, NJ,NK, NN, NP, NX 
COMMON /F/ R0TATE,XAIHG,XBIH6jiYAIHG,YBIHG,CL,DF 
COMMON YG/ Nl,N3,N4,N7,Hl 
COMPLEX XITAIL,BP,XIA,XIB,XIC 


COMMON /H/ BP<129),XIA,X1B,XIC,XITAIL,CDNE,CTWQ,CTHR,RATC,QR,NBPS 

REAL HACHN,KAPPA 

COMPLEX XI,XIBDOY»CHAR,XIS 

COMMON CHAR £61, 20), XI£ 300 ) , XI S (300 ), XI BODY ( 300) , UBOO Y (300 ) , 


1 VBODY C 300), XBOO Y(300), y BODY (300 ),H( 300), TH£TA£ 300 > , ANGL ( 300 ) , 

2 MACHN{300 3#KAPPA (300),XREAL-(-300),-YREAL{300>,S(-300),ES<600),Q£600) 

3 , PHI(600),0L(300),ILINE(300) 

COMMON UREAL(300},VREAL(3003,PSI(300),FEE(3003, SX{300),QX(300) 
COMPLEX ROTATE 


DATA NRDW /!/ , HXMAX 7300/ , QTDL /0.7 

OTOL=TOL 

HRX=2 

IPL = HOD(IABS(IPLT)/10,10) 

ILINE(MX) « 0 
ILINElHX+l) = 0 
REWIND Ml 
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REWIND N1 

IF CNl.NE.Hl} N3 » N7 

READ CHI) NRN^NIN# {SX1J»#QX(J)> J 1>NIN) 

READ (HI) NPTS,DUH^DUH^DUH> <ES( J)jQ( JJjPHK J)> J * 1»NPTS) 

IF (IPL«EQ.O) GO TO 25 
C PLOT Q(S> 

SF - 10./ C SX( NIN3-SX (1 ) > 

CALL SETSF(SF) 

CALL CHSIZE(.07) 

CALL ORIGIN ( 6.0,5.51 
SFI = 2.5/SF 

CALL CPLOT (CHPLX(ES(1),SFI*0 til), 3) 

DO 10 L » 2,NPTS 

10 CALL CPLOT (CrtPLX(ESlL),SFI*Q£L 1 )>2 ) 

DO 20 L = 1,NIN 

20 CALL CSYHBL { C HPLX ( SX ( L 1 , SF I*OX ( L 1) , 3,-1 ) 

CALL SETSF <1.1 
CALL CHSIZEt ,1A) 

CALL XYAXES ( ( 0. , 0. 1 ,5. , 5 . , . 2, 0. , 6H ( F 5 .1 3 ) 

CALL CSYHBL C ( A. 5,-. 6) , 1H$, 1 > 

CALL XYAXES t (-5.0,0.),4.,4., .AO, 90.,6H(F5. 1) 1 
CALL CSYHBL C (-4. 7, 3. 7>, IHQ, 11 

CALL CSYHBL ( (-1 . 5, -4 .5 1 ,24HINP UT SPEED DISTRIBUTION ,241 

CALL FRAMER 

CALL ORIGIN (3.5,2.01 

IF £ (IPL . EQ.2) .DR.C IPL.EQ.4 l.OR. ( IPL. EQ.7) .OR. (IPL .Ea.91 3 CALL ORIG 
1IN(3. 5,4.0) 

IF (CABS(XIA-XIB) .GT.TOL) CALL ORIGIN (3. 5, 1.5) 

CALL SETSF (5.) 

25 READ (Ml) QR,QS,RATC 
IF (HX.EQ.l) RETURN 

READ (Ml) DUM,(XIBDDY(J1,UB0DY( J),\/BODY(J),X80DY(J),YS0DYU3 , 

1 J = 1,HX) ,N&PS,{6P(J), J = 1,NBPS1 
IF (EOF(Hl) .NE.O) RETURN 

READ (Mil HACH,DF,CL,XAIHG,XfiIHG, YAIHG,YBIMG,R0TATE 
IF (EOF (Ml ) .NE.O) RETURN 
COSA^REAL (ROTATE) 

SINA=AIHAG(ROTAT£) 

YR-XBODY( D+SINA+YBQDY <1 )K0SA 

IF( (YR.LT.O.) .AND. (NB.GT. 1)1 CALL CPLQT(CHPLX(0.,-YR),-3> 
flCRIT * (GAMMA-1. )/(GAMHA+i.l + 2 . /( ( 6AHMA+1 . )*H ACH+MACH ) 

HX = HX+1 

C READ DATA FOR A PATH OR FORK 

30 READ (Nl) KK,NN 

C «t**CHECK FOR END OF FILE**** 

IF ( EQF(Nl) .NE.O) GD TO 160 
DO 40 L = 1,NN 

READ (Nil UREAL(L),VREAL(L) ,XREAL(L), YREAL{L),F£E(L>,PSI(L1, 

1 XIS(HX3,XI(U 
40 CONTINUE 

IF (Nl.EQ.Ml) GO TO 60 
READ (Mil KK,NN 
J = 1 

DO 50 L = 1,NN 

READ (HI) UR2,VR2,XR2,YR2# PHIR2,PSIR2 , XI S ( HX+2 ), XIS (HX+2 1 

UREAL(L) = (4.*UREAL( J1-UR2 1/3. 

VREALU) = (4,*VREAL(Jl-VR2)/3. 
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XREALCU * {4 .*XREAU J )-XR2) /3. 

YREALCU = (4.+YREAL( J)-YR2J/3. 

FEE(L) = ( A.’frFEE C J)-PHIR2) /3. 

PSI(L) =- (4,"*‘PSICJ}-PSIR2 W3. 

XKU = XI(J> 

J s Jt-1 
50 CONTINUE 
60 LN = NN-2 

IF (LN.LE.l) GO TO 80 

00 70 J = 2#LN 

CALU INTER? C J-lf HX> IC HK) 

IF (ICHK.EO.O) GO TO 70 

C A BODY POINT HAS BEEN FOUND IN THE INTERVAL 

ILINE(MX) « MX+1 
MX = HX+1 

IF IHX.GE.HXHAX) GO TO 150 
GO TO 120 
70 CONTINUE 

C SUPERSONIC PATH WITH NO BODY POINTS 

80 IF INROW.NE.l) GO TO 90 
WRITE (N4,200) 

MRQ = MN/65+1 

90 IF £H0D{NR0W-1»MRQ].NE.0> GO TO 110 
C CONSTRUCT P-N TRIANGLE FOR SUPERSONIC PATH 

NCOUNT * 0 
DO 100 J l»NNfMRO 
NCOUNT = NCOUNT+1 
L = IHP 

IF (PSK JJ .LT.O) L * IHN 
100 ILINE(NCOUNT) * L 

WRITE CN4#180) {ILIN£(J)^J = l^NCQUNT) 

110 IF ( (IPL.E0.3) *0R. aPL.EQ.4) .OR, ( IPL.E0.8).DR. (1PL.EQ.9) ) CALL 
1PLTHL(NR0W^NN> 

NRDW * NROW+1 
IF tNN.GT.l) GO TO 30 
C TRIANGLE IS COMPLETE 

ILINE<MX-1J = 0 
NRDW = 1 
GO TO 30 

C PLOT EVERY MRP CHARACTEfilrSTlC FROM THE BODY TO THE SONIC LINE 

120 1F{ r IPL.LE.2} .OR. { IPL.EQ.5 J .OR. ( IPL.E0.6)«0R.(IPL .EQ.7) .OR. 
1(H0D(NR0W-1/MRX).NE,0>) GO TO 80 

CALL CPL0T<R0TATE*CHPLX{X600Y(MX-l)>YB0DYtHX-l) J>33 
00 140 L * J»LN 

140 CALL CPL0T(R0TATE+CHPLX(XREAL(L+2)» YREAL(L^2J »,2) 

GO TO 80 

150 WRITE (N4*190) 

CALL EXIT 
160 MODE = -1 

IF ( { YR.LT.O.T.AND. (NB.GT.l) ) CALL CPLOT ( CHPLX £0 . # +YR > ^ ^3 ) 

CALL INIT £CHARjXI,Xl>XI5) 

MX = HX-1 
LL » NK+3 
ILINEU) = 2 

OS = UBODYtD+UBODYdJ + VBQD Y ( 1 ) *VBOOY ( 1 ) 

DO 175 J * 1,NK 
1LIN££J+1) » J+2 
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QSOLO = QS 

Q$ = UBQDYt J+I l#UBOOYt J+1) + VB DDY i J+1 ) *VBOOY( J + 1 ) 

IF COS.GT.QTOU GO TD 165 
C SKIP THE STAGNATION POINT 

MX = MX-1 
ILINE(J) = 0+2 
60 TO 175 

165 IF I (QS-OCRIT)*CQSDLD-QCRIT) ,GT.O. ) GO TO 175 
C ME HAVE JUST CROSSED THE SONIC LINE 

IF IQS.LT.QCRIT) GO TO 170 
C PIECE IN THE SUPERSONIC POINTS 

JF = J 

ILINEtJ) = LL 
GO TO 175 

C REENTERING SUBSONIC REGION 

170 LN = LL 

LL = ILINECLLJ 
If (LL.NE.O) GO TO 170 
LL = LN+1 
ILINE(LN) J+1 
MX = HX-(J-JF) 

175 CONTINUE 

IF((IPL.E0.2) .DR.aPL.EQ«4).0R. nPL.£Q»7>,0R.CIPL.EQ,9)) CALL 
1 0RIGIN(3^5j 2.0) 

RETURN 

180 FORMAT (2X#65 ( 1X»A1) ) 

190 FORMAT ( / / / 5X48H***** TOO MANY POINTS DEFINING THE AIRFOIL ***^* 

1 //5X36H PROGRAM STOPPED IN BOOYPT ^*** ) 

200 F0RHAT£1H1//51H POSITIVE AND NEGATIVE VALUES OF THE STREAM FUNCT 
1 24HIDN AT SUPERSONIC POINTS ///) 

END 


SUBROUTINE PLTML{K1^K2J 

C PLOTS CHARACTERISTICS IN THE SUPERSONIC REGION 
COMMON /C/ PIjGRID,T0L 

COMMON /D/ II# IPLT# JJ>KBM#KK#L8M#H0DE*HRP»Me#NC>NF#NJ>NK>NN#NP>NX 

COMMON /F/ ROTATE#XAIMG# XBIHG#YAIHG#YBIMG#CL#DF 

COMMON /G/ Nl# N3»M4#N7 jH1 

REAL HACHN#KAPPA 

COMPLEX XI#XI6DDY,CHAR,XIS 

COMMON CHAR(61#20)# XI (300)#XIS(300)#XIB0DY 1300)#UBODYC300J# 

1 VBDDYC 3OO)#XBO0Y(3O0)#YB0DY C300 )>H I 300 ) # THETA ( 300) # ANGL (300)# 

2 HACHN(300)#KAPPA(300)#XREAL (300)# YREAL(300)#S(300)#ES{600)# 0(600) 

3 # PHl{600)#aLC300)#ILINEC300) 

COMMON UREAL ( 300 ) # VRE AL (300 J # PS I ( 600 ) # PS ITMP C 61 ) #MP0INT(61) 

COMPLEX ROTATE 

DATA NAR/61/ # MAR/20/ 

L = 0 

C CHECK FOR FIRST ROW OF TRIANGLE 
IF (Kl.GT.l) GO TO 30 
FAC = -PSI(l) /ABS(PSI(1) > 

MR 0=2 

10 00 20 J = 1#K2#MRQ 
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L * L + L 

CHAR(Ltl) ^ RDTATES^CMPLXtXREALCJJ^rREAKJ) ) 

PSlTMPai = PSIU) 

20 MPOINT(L) = 1 

LL * L-1 

C CHECK TO SEE IF WE HAVE EXCEEDED THE DIMENSION OF CHAR 

IF IL.LE.NAR) RETURN 
WRITE (NA>100> 

MRQ = HRO+HRQ 
L * 0 
GO TO 10 

30 DO 70 J = 1,K2#HRQ 
L = L+1 

IF (FAC* PSK JI.LE.O. ) GD TO 60 
C POINT IS OUTSIDE THE BODY 

MPOINTIU = MPOlNTtL)+l 
IF {HPOINTtLJ .£0.2) GO TO 50 
C CHECK FOR DIMENSION OF CHAR 

IF (MPDINT CL) .LE.HAR) GO TO 60 

MPQINTCL) = 2 

CALL CPLOT CCHAR{L>1);3) 

00 AO K = 2/HAR 
40 CALL CPLOT ( CHAR ( L^ K) ,2 ) 

CHARCL^l) - CHAR(L^MAR) 

GD TO 60 

C FIND A POINT ON THE BODY BY LINEAR INTERPOLATION 

50 R2 = PSI{J)-PSITMP(L) 

R1 = PSKJ J/R2 
R2 » -PSITHPCD/R2 

CHARCL,!) » RI+CHARCLjD+ROTATE^RZ+CMPLXCXREALUJjYREALCJ)] 
C STORE THE POINT FOR PLOTTING 

60 K = MPOINTCL) 

CHARCLfK) * ROTATE*CMPLX(XREAL( J)»YREALCJ) ) 

70 PSITHP(L) » PSICJ) 

IF (K2.GT.1) RETURN 

C * WE HAVE FINISHED THIS SUPERSONIC PATH 
C FINISH PLOTTING THE CHARACTERISTICS 

DO 90 J » 1»LL 
L - HPOINT(J) 

IF (L.LE.l) GO TO 90 
CALL CPLOTCCHARC Jjl) #3 ) 

00 80 K = 2#L 

80 CALL CPL0T(CHAR(J>K)/2) 

90 CONTINUE 
RETURN 

100 FORMAT C27H TOO MANY SUP-ERSDNIC- P-OiNT-S- ). 

END 


SUBROUTINE INTERP (Kl,K2,K3) 

COMPUTES SUPERSONIC POINTS ON BODY BY QUADRATIC INTERPOLATION 
THE BODY IS THE STREAMLINE PSI = 0. 

K3 IS ZERO WHEN THERE IS NO BODY POINT IN THIS INTERVAL 
REAL MACHN^KAPPA 
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COMPLEX XI#XIBODY^CHAR>XIS 

COMMON CHAR(61>20),XI t 300) ^XIS( 300) #XIS0DY( 300 ) jUBODYC 3001# 

1 VBQOY( 300)^ XBODYt 300) ^YBODYt 300 ) jK1300),THETA( 300) jANGK 3001 » 

2 HACHN (300)# KAPPA (300) jXREAL (300 )»YREAL{ 300) »S (300),ES (600) »Q <600) 

3 > PHI( 600)><3L(300)flLINE(300) 

COMMON UREAU 300) #VREAL (300)#PSI(300) 

COMPLEX X113#XI23 

K3 * 0 

XB = PSKKl+1) 

XC = PSKKl+2) 

C CHECK FOR A SIGN CHANGE BETWEEN THE SECOND AND THIRD INTERVAL 
IF ( xe*xc« LT.O. ) GO TO 20 
IF ( (XB^XC.GT.O* ) .AND. (Kl.GT. 1) ) RETURN 
IP ( (XC.EO.O.) .AND. (XB.NE.O. ) ) GO TO 20 
IF(XB*PSI (Kl).LT.O.) GO TO 20. 

IF ( (XB.NE.O. ) .OR. (XC.EO.O.) ) RETURN 
1F((K1.EQ.1).AND.(PSI(KI) .EO.O. HRETURN 
20 K3 = L 

XA = PSI(Kl) 

EA = XC-XB 
EB = XC-XA 
EC » X8-XA 

C DO LINEAR INTERPOLATION BETWEEN POINTS 2 AND 3 
U23 = (UREAL(K1+1)*XC-UREAL(K1+2)*X6) /EA 
V23 = (VREAL(K1+1)+XC-VREAL(K1+2)*XB)/EA 
X23 * (XR£AL(K1+1)*XC“XREAL(K1+2)*X8)/EA 
Y23 = CYREAL(Kl+n’t=XC-YREAL(Kl+2)*X8) /EA 
XI23 = (X1(K1+1)*XC-XI(K1+2)*XB)/EA 
C DO LINEAR INTERPOLATION BETWEEN POINTS 1 AND 3 

U13 = (UREAL(Kl) *XC“UREAL(K1+2)#XA) /EB 
V13 * (VREALIKL) *XC-VREAL (Kl+2 )*XA ) /EB 
X13 = (XREAL(Kl) +XC-XREAL ( Kl+2) *XA) /EB 
Y13 = (YREAL(Kl) +XC-YREAL ( Kl+2) *XA ) /E B 
XI13 = (XI(Kl)*XC-XI(Kl+2)+XA)/EB 
C IF PSI IS NOT MONOTONIC USE LINEAR INTERPOLATION 
IF (EA+EC.GT.O.) GO TO 30 
K3 = -1 

UB0DY(K2) = UZ3 
VBQ0YCK2) = V23 
XB0DY(K2) » X23 
Y&0DY(K2) = Y23 
XlBODYtKZ) = C0NJG(XI23) 

RETURN 

C DO QUADRATIC INTERPOLATION 

30 UB0DY(K2) = ( U13*XB“U23+XA)/EC 
VB0DY(K2) = ( V13*XB-V23*XA)/EC 
XB00Y(K2> = CX13+XB-X23*XA)/EC 
YBQDY(K2) = ( Y13+XB-Y23+XA) / EC 
XIBODY(KZ) =(C0NJG{XI13)*XB-C0NJG( XI23)«XA)/EC 
RETURN 
END 
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SUBROUTINE BLADE C KP, NPTS# TITLE J 

C SORTS AND PLOTS AIRFOIL COORDINATES AND PRESSURE DISTRIBUTION 

REAL MACH 

COHHON /A/ GAHMA*MACH 
COMMON /C/ PI,6RIO,TOL 

COMMON /D/ IIjIPLT> JJ*K 6M,KK,LfiH,M00E#MRP»H8#NC*NF*NJ/NKiNN»NP>NX 
COMPLEX ROTATE 

COMMON /F/ R0TATE>XAIHG^XBIMG»YA1MG» YBlHG#CL»Df 
COMMON /G/ N1^N3#NA#N7»H1 
COMPLEX XITAIL^BP#XIA,XIB>XIC 

COMMON /H/ 8P (129)# XIA, XIB # XI C# XIT AI L# CONE# CTWO# C THR# R ATC» QR# NB PS 
REAL MACHA#MACHB,HTAIL 

COMMON /K/ HACHA#HACH8#MTAIL#ANGLA#ANGLS#AN6LT#RN#TRANU#TRANL#NRN 

REAL HACHN#KAPPA 

COMPLEX XI# XIBODY#CHAR#XIS 

COMMON CHARC61#20)#XH300) »XIS( 300) # XIBODY ( 300 ) # UBDDYI 300) # 

1 VBDDYOOO )#XBODY(300)# Y8 0DY( 300)# H (300)# THETA (300)# ANGL{ 300)# 

2 MACHN(300)#KAPPA(300)#XREAL(300)»YREAL (300)#$(300)#ES (600) #Q(600) 

3 # PHI (600)#QL(300)# ILINE(300) 

COMMON XX(300 l#XPC300)#XPP(300)#XPPP (300)# JLINK1300) 

DIMENSION TITLECIZ) 

EMACHCaS) - SQRT(QSy(COSQ-((GAMMA-l. ) )«qS) ) 

CP(QS) = HEAOI*{RHQ(QS)*+GAHHA“PINF) 

IF IKP.LE.I) RETURN 
GAMX= (GAMHA-1# ) /2. 

COSQ ^ GAHX+1 ./(MACH*HACH) 

QSB COSQ*(HACHB*MACHB)/( 1#+GAHX*C HACHB + MACHB) ) 

PINF = RHD(QSB) *#GAHMA 

HEADI = 2. / CGAHHA>C(MACHB*MACHB)=f PINF) 

RAD » 180, /PI 
SF = 5. 

CALL SETSF(SF) 

IPL ^ HOD(IPLT/10#10) 

Y0RI6 = 2,0 

IF (NB.NE.l) YORIG • 1.5 
CPDR = (6.5-YDRI6)/SF 
EHDR={4.5-yaRIG}/SF 
SM = 5. /SF 

IF(NB,NE,1) EHDR«<6,0“Y0RI6)/SF 
IF(NB,NE,1> SH=10./ (3, 333*SF) 

IF{(IPL.LT.5).AND. (NB.EQ.D) SM=4./SF 
IF CIPL.GT.5) SM = -2.5/SF 
ANGROT * ATAN2('XBIMG#-YBIMG) 

CDSA = REALIROTATE) 

SINA * AlMAG(ftOTATE) 

SOL = (PI+.P-I)*S0RT.(XBIHG*XBIHG.+ YBIM6*,YBIHG) 

OX — (PI + PI)’M{XAIHG+XBIHG)*COSA-(YAIMG+YBIHG»*SINA) 

D Y' = - ( P IVP'I m '( X AI H G+X B1 HG')>S I N A +TYA‘I M G+ Y B I MGT*'C 0 SA') 

IF (MOOE.LT.O) GO TO 15 
C CREATE A POINTER LIST 

DO 10 J = 1#KP 
10 ILINE(J) *■ J + 1 

C ORDER THE POINTS AROUND THE BODY AND FIND THE THICKNESS/CHORO 

15 DO 20 J - i»300 
20 JLINK(J) = J 
TC » 0. 

LMAX = 1 
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J = 1 

DQ 30 JX - 2>KP 
JH = J 

K = JLINK(JM> 

J ^ ILINE(J) 

IHAXP * IHAX 
XHX * X8QDY(K) 

LHAX = 4M 
L = J 

DO 25 LX « JX»KP 
LL = JLINK(U 

IF (XBGOYiLD.LE.XMX) GO TO 25 
XHX * XBODYCLU 
LMAX L 
25 L * ILIME(U 

IF CLMAX.EQ.JH) GO TO 30 
JLINK(JM) = JLINK(LHAX) 

JLINK(LMAX) = K 
LMAX * JLINKtJM) 

TC = AMAXKTC# ABS(YBODY{LHAX)-Y0ODY(LMAXP) ) ) 

30 CONTINUE 

CALL CHSIZE t.07) 

WRITE (N4j1603 TC,CL 
EMA»A6S(MACHA) 

EHB=ABS(HACHB) 

IF (NB.EO.U GO TO 40 
IFIEMB.GT.EMA) WRITE(N4>110) DF>50L 
IF(EHB»LT,EHA) WRITEINA^ 115) SOL 
THA « 90.-ANGLA - RAO+ANGROT 
THB = 90.-ANGLB - RAO=»ANGROT 
TURN = THA-THB 

MRITE(N4^ 120) EHB» THB» EHA# TH A» T URN 
GO TO 50 

40 URITE(N4>180) EMA 
50 WRITE (N4,170) DX,DY 
DZ = SORT (DX+DX+DY+DY) 

J = 1 

DO 60 L » 1>KP 

XREAL(L) = XBQDY(J )*COSA-YBODY( J)*SINA 
YREAUL) = XBDDY(J)*SINA + Y80DY(J )*CQSA 
QS = UBOOY(J)*UBODYtJ)+VBOOY<J)*VBOOY(J> 

OLtL) » SQRTtQS) 

EMN = EMACH(QS) 

HACKNCL) » EMN 

ANGL(L) = ATAN2{UB0DY( J)+SINA+VB0DY(J)*CQSA#U80DY( J)*COSA 
1 UBODYI J)«^SINA) 

IF < (IPL.EQ.0).aR.(IPL.EQ.5)) GO TO 60 
IF tIPL«LT.5) CPX = SH*EnN+EHDR 
IF (IPL.6T.5) CPX = SM*CP(aS) + CPOR 
CALL CSY«BL(CMPLXCXR£AL(L) *CPX)f3#-l) 

60 J = ILINEU) 

C PLOT MACH NUMBER AT THE TAIL POINT 

IF t(IPL.EQ.O). OR. CIPL.EQ.5) ) GO TO 70 
CALL CHRAN6 (45.) 

QS = UB0DYtl)*UB0DYtl)+VBO0Ytl)*V8O0Y(l) 

IF (IPL.LT.S) EHN » SM4HACHN{ 1) +EMOR 
IF (1PL.GT.5) EHN SH*CP(QS> + CPOR 
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CALL CSYHBL(CHPLX(XREALa)*EMNJ #3 j-1 ) 

CALL CHRANG(0.) 

YR * YREAL(l) 

IF £(YR.LT.0.).AND.rNa.6T.l)) CALL CPLOT CCHPLXt 0, #-YR) >-3 ) 

70 CONTINUE 

ENCODE (60,150^TITLE) £HB,CL,DZ>TC 

IF( ( IPL.EQ.23 . DR. ( IPL.EQ.4J .0R» (IPL.EQ.7) . OR. (IPL.EQ.9) ) CALL DRIG 
1IN( 3,5,4.0) 

CALL OUTPT tKP^TITLEi ANGRDT^SOL J 

IF (NB.NE.IJ ENCODE (60^ 140>TITLE) E EHA^ TURN# SOL 
IF (NB.EQ.l) ENCODE £ 60#190#T1TLE) EHB# CL# DX#0 Y# TC 
IF ( (NRN,LT.O). AND. (MODE. LT*0) ) READ (N7#130) TITLE 
IF (IPL .EQ.O) RETURN 

CALL SPLIF(KP,S#XREAL»XP#XP.P#XPPP#3# 0.»3#0. ) 

CALL INTPL (NPTS#ES# XX# S» XREAL# X P# XPP# XPPP } 

IPEM = 3 

CALL ORIGIN (3,5#YORIG3 
DO 80 L - L#NPTS 
OS = QR#0(L)*QCLJ 

IF (IPL.LT.53 EMM = SH*EM ACH ( QS ) +EHDR 
IF (IPL.6T.5) EHN = SH+CP(QS) + CPOR 
CALL CPLOT(CHPLX(XX(L)#EHN) jIPEN) 

SO IPEN » 2 

CALL CHRANGCO.) 

CALL CHSIZE (.14) 

SM = SM=f‘SF 
CALL SETSF tl, 3 
WORD » IHN 

IF(IPL,GT.5) WQRD=2HCP 

IF( (NB.NE.l). AND. ( IPL.LT. 5) ) GO TO 500 
CALL CSYHBLC {-.80#7.5)#WQRD# 3} 

GO TO 501 

500 CALL CSYMBL(I“.80#8,23#WORD#3) 

501 CONTINUE 

CALL CPLOT (C3.9#7.97>#3) 

CALL CPLOT ( (4.25#7.97)#2) 

CALL CSYrtBLt(4,36#7.9)#6HlNPUT #6) 

CALL CSYMBL C (4. 0# 7, 5 ) #8H+ OUTPUT #8) 

CALL CSYMBLC(“1.3#“,75># TITLE# 60) 

IF ( (NRN.LT.O), AND. (MODE. LT. 0)1 CALL CS YNBL (- ( 1, 2# . 9) # TITL E (7 ) #60 ) 
IF ( (NRN.LT.O). AND. (MODE. LT.O) ) READ (N7#130) TITLE 
IF CIPL.LE.5) GO TO 90 

CALL XYAXESC C-1.0#4.5) #3.0,3.5,-.4D, 90.# 6H (F5.1 J ) 

CPCRIT =• CP( (COSQ+COSQ) /(GAHHA+1. ) ) 

CALL CPL0T(CHPLX(-l*10#SH4CPCRIT+4,5)#3) 

C-AL-L -C-PL-0T-{CMPtX-C -.90# SM*C PCRir+4;“5 )Tf 2)“' 

GO to 100 

90 IF(NB.NE.l) GO TO 91 

CALL XYAXES(C-1.0»2.5)#0.#5.# .25# 90. #6H CF5 . 2 ) J 
GO TO 100 

91 CALL XYAXESt {-1.0#4.5)#0.» 4.# .3333#90,#6H( F5.2) ) 

100 CALL FRAHER 

RETURN 

110 FORMAT (34X#17HOIFFUS10N FACTOR* # F5 . 3//39X#10HGAP/ CHORD* #F6.3/) 
115 F0RMAT(39X#10HGAP/CH0RD= #F6,3/) 

120 FORMAT (13X #18HINLET MACH NUMBER^# F6.3#15X#17HINLET FLOW ANGLE*# 

- 1 F7.2//13X, 18H EXIT MACH NUH BER=# F6 ,3# 15X » 17H EXIT FLOW ANGLE*# 



143 


2 F7.2//35X,14HTURNING ANGLE=,F7. 2/J 
130 FORMAT t6A10) 

140 FORHAHAH Ml=F4i3»5X4H H2 = F4. 3^ 5X7HDEI TH=F6.2»5X4HG/C=F4.2 1 
150 FORMAT (3H M* ^ F4 . 3> 5X3HCL F5 . 3^ 5X3HD Y«j F4 , 3, 6X4HT/C«=> F4. 3 3 
160 FORMAT (1HI/36X* 16HTHICKNESSyCH0RD=>F 6.4/ /32X>12HC0EFF1CIENT t 
1 8HDF LIFT= 3 

170 FORMAT t 34X, 3HDX=, F6 . 4^6X, 3HDY=* F6 . 4 /) 

180 FORMAT (40X>12HMACH NUHBER=^ F6.3/) 

190 F0RMAT(2HM=>F4.3>4X3HCL=F5.3,4X3HDX=,F5.3,4X3HDY=F5.3* 4X4HT/C=F4.3 
1 ) 

END 


SUBROUTINE OUTPT (KP>TITLEj ANGROT^ SDL ) 

C LISTS X,Y COORDINATES AND MACH NUMBERS 

DIMENSION TITLE16J 
REAL HACH»MAVE 
COMMON /A/ GAMMA, MACH 
COMMON /C/ PI,GRID,TOL 

COMMON /O/ II,IPLT,^J>KBH,KK>LSH,M00E#MRP#NB,NC,NF,N3,NK,NN,NP,NX 
COMMON /G/ M1,N3,N4,N7,M1 
COMPLEX XITAIL,fiP,XIA,XIB, XIC 

COMMON tWt BP<l29>*XlA#Xl8,XrC,XITAIL,CQNE,CTW0iCTHR,RATC,QR,NBPS 
REAL MACHA#MACKB,HTAIL 

COMMON /K/ MACHA, MACH B,MT AIL, ANGLA>ANGL3»ANGLT,RN,TRANU»TRANL>NRN 

REAL HACHN, KAPPA 

COMPLEX XI,XIBODY,CHAR,XIS 

COMMON CHAR(61,20),XIC300) ,XI51300»,XIB0DY UOO 3 ,UBQDYt 3003 , 

1 VBODYt300 ),XB0DY{300> , YB00Y(300 3,K<300),THETA(300 3 ,ANGL(300), 

2 HACHN(3003,KAPPA{300),XREALC300>,YREAL(3003,S<3003^ ES(600),0I6003 

3 , PHI(600),OL(3003,ILINE(3003 
COMMON SEPRI300) 

IPL = MOD{IPLT/10,10> 

RAD - 180. /PI 

TOL = l.E-5 

GAM = .5*(GAMHA~1. 3 

EXP = GAMMA/ « GAHMA-1. 3 

CSINF « 1,+GAH=*'HACHB*MACHB 

HEADI = 2./tGAHMA*HACH6*MACHB3 

HAVE * .54(ABStHACHA)+ABS{HACHB ) 3 

KQMIN = 1 

KQMAX a 1 

QMIN = MACHN(l) 

QMAX = QMIN 
H(13 = 0. 

THETA(13 = 0. 

S(l) = 0. 

KAPPA(KP) = 0. 

DO 70 L = 2,KP 
H(L3 « 0. 

THETA £L) = 0. 

SEPRLL3 = 0. 

IF IHACHNtLl .GT.QHAX) KQMAX = L 

IF( ( XREAL(L)4XREALIL3 + YREAL(L l^-YREAU U 3 .LT.TOL 3 KQMIN-L 
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OMIN = AMlNl(flACHNa)^QMIM) 

QMAX = AMAXKMACHNlDjQMAX) 

DX * XREALCL)-XReAL(L-l) 

DY = YREALtU-YREAL CL-1) 

IF ( ANGL (L J-ANGLU-l) .GT.PI/2. > ANGUU = AN6L(L3-PI 
OTH = ANGLCU-ANGL(L-l) 

FAC = 1. 

IF (OTH.NE.O.J FAC ^ .5*DTH/SIN ( , 5*OTH) 

DS = FAC*$QRTCDX*OX+OY#OY 3 
S{L3 = S<L-1)+DS 
KAPPA(L-13 =-DTH/DS 
70 CDNTINliE 
LTRU = KP+2 
LTRL = -1 

IF (RN.LE.0.3 GD TO 105 
L = KQHAX 

IF (TRANU.LT.O. ) 60 TO 80 
DO 75 L * KQHIN^KP 
IF (XREALI L) .GE.TRANU3 GO TO 80 
75 CONTINUE 

WRITE (N4, 2103 
GO TO 105 

80 XTRANS = XREAL(L) 

LTRU = L 

CALL NASHHC IL>KP3 
IF (TRANL.GT.0.3 XTRANS = TRANL 
00 90 L = liKOMIN 
IF (XREAL(L).LE. XTRANS) GO TO 100 
90 CONTINUE 

IF (RN.NE.0.3 WRITE (N4#210) 

100 LTRL = L 


CALL NASHHCaTRL»l) 

105 WRITE (N4>6903 
WRITE CN4^700) 

LC - 18 

IF tNB.EQ.13 LC = li 
INC = 1 
REWIND N3 
NRN = 1 

WRITE (N3>730) TITLEfKP 
SFAC = 2./S<KP) 

DO 130 L = 1,KP 
U = OL(L3*COS(ANGL(U3 
V = QLIL3=^SIN(ANGL(L3 ) 

ANG = RAO*ANGL<U 
CALL CHRANG (ANG) 

IFtIPL.GT.O) CALL CS YfIBL ( C MPL X ( XRE AL ( L 3 # YRE AL t L 3 ) > 15j-l 3 
DELS = THETATL3*H(L ) 

XS - X8EAL (L )-DELS*SlN( ANGLtL ) 3 
YS « YREALIL3 +OELS<=COS (ANGLtL) ) 

CS = l.+6AM'<'HACHN(L3»rtACHNCL) 

CP = HEAOI*((CSINF/CS)*+EXP - 1.3 
WRITE (N3j740) U#V#XS»YS>CP 
IF ((L.LT.LTRL 3 . OR. ( L . G T. L TRU) ) GO TO 110 
HSG - IH 

IF CMACHNt L3 .LT.TOL ) MSG = lOHS TAGNATIQN 

IF (tL.EQ.LTRL tl) ,QR, (L. EQ.LTRU -1)3 MSG >: lOHTRANSITION 
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WRITE (N4#720) XREAUL ) ^ YREAL ( L ) >ANGj KAPPA tU> HACHN (D^MSG^XSjYS 
INC = -1 
GO TO IZO 
110 CONTINUE 

WRITE (N't^TlO) XREALa)»YREAL(U>ANG» KAPPA(U»MACHN{L) 

1 # THETA(U/SEPR(L»>XS^ YS 
120 UC = LC+1 

StL) =« SFAC=t'S(U-l. 

IF aC,lE,55> GO TO 130 
LC » 

WRITE (N4>200) 

WRITE (NA,700) 

130 CONTINUE 
S(KP) * 1. 

£JS = U*U + V*V 

RT = (l.+GAHtMAVE^HAVEI/d^ + GAM^WACHNm^NACHNl in 
FAC » .25/11. +GAM«'MACHNm+MACHN(in 
HBT = FAC*<HfKP3+l.) + 1, 

HBB = FAC*{Hm*^,l) + 1. 

COF = 2,*RT+*3*(THETACKP J-<=CS**HBT+THETA(1)+QS**H6B) 

IFtABS(MACHA) .LE.ABS (HACHB)> WRITE ( N4/ 220 ) CDF 
IF {NB.EQ.13 RETURN 
CGSTE * COSCANGLd) ) 

CQS6ET = COStANGRaT+PI*<ANGLA+ANGLB)/360. ) 

FAC * (CQSBET/CQSTe)*Cl. + .125*CDF*{HB8 + HBT>i»*2/CS0L*CQSBETn 
CLOSE = tCOF+COF)=«=FAC 

IF( ABS(riACHB) .GT.ABSIHACHA) 3 WRI TE ( 230 ) CLDSS 
RETURN 

200 FORMAT (IHl//) 

210 FORHATC //52H+***TRANSITI0N NOT FOUND — BOUNDARY LAYER SK1PPED**X“#) 

220 F0Ri1AT(lH0> lOXf 27HPR0FILE DRAG COEFFICIENT = >F6.A ) 

230 FORMATdHO:.lOX#27H LOSS COEFFICIENT = jF6.4 > 

690 F0RHATd3X#45HC00RDINATES FROM LOWER SURFACE TAIL TO UPPER 

1#12HSURFACE TAIL /) 

700 FORMAT d2X/lHXi7X>lHY^7X>3HANG>3X>lHKt7X>lHMf5X#5HTH£TA>4Xj3HSEP> 5 
1X#2HXS^ 6X#2HYS/) 

710 FORHATC F15.4> F8.4>F8.1>F6.2»FB.4>2F8.5»F7.4^ F8.4J 
720 FORHAKFIS.A, F8.4^FS .1,F6.2, F8.4»3X> A10>3X> F7,4> F8. 4> 

730 FORMAT (6A10^I5J 
740 FORMAT (4020) 

END 


SUBROUTINE NASHHC (K1,K2) 

C COMPUTE THE BOUNDARY LAYER CORRECTION FROM POINT K1 TO K2 

COMMON /A/ GAHHA^MACH 
REAL HACHA:»MACH6»MTAIL 

COMMON /K/ MACHA>HACHB#HTAIL» ANGLA#ANGLB» ANGLT>RN»TRANU?TRANL^ NRN 

REAL MACHN^KAPPA 

COMPLEX XI, XIBDDY^CHAR^XIS 

COMMON CHAR(61,20)»XI( 300), XIS( 3001, XIBQDYC 300), UaODY( 300), 

1 V60 DY ( 300 ), X BODY 1 300), YBOOY ( 300 ),H( 300), THETA (300), ANGLC300), 

2 MACHN(300) , KAPPA (300), XREAU 300), YREAL (300), S( 300), ES (600 ),QC600J 

3 , PHI(600>,QL(300),ILINE(300) 
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COMMON SEPRC300} 

REAL HHjMHSQ,NU,MACH,MAVE 

DATA TR /.3424/ * RTHO/320./ > TE1/5.E-3/ * TE2/5.E-5/ » PIMIN 
1 /-I. 5/ ^ PIMAX/1.E4/ 

GAM = (GAMMA-1. > /2, 

GAMl * l./(GAMHA-l.) 

MAVE = .5*(A8S{HACHA3 + ABS CMACHBH 
CSIINF = l.+GAM+HAVE*HA\/E 
INC - ISIGN(1»K2-K1) 

GE « 6.b 
L = K1 

DSOLD - A6S(S(L)-S(L-INC») 

10 LP = L+INC 

MH = .5*(MACHN(L)+HACHN(LP) J 
MHSQ = 

CSIH = 1,+GAM+HHSQ 
DS = ABS(S(LP)-S(U ) 

IF (LP.NE.K2) DQDS * ( MACHN ( LP>-H ACHN ( L ) ) / (OS*MH#C S IH ) 

T = CSriNF/CSIH 

RHOH = T++GAMI 

NU = T+d.+TRj/lRHOH^d+TR)) 

RTH - RN*t1H/{ HAVE + NU) 

IF (L.NE.Kl) GO TO 30 
THETAH= RTHO/RTH 
THT = THETAH 
THETA(L) - THETAH 

30 FC = 1,0+,066*MHSQ-. 008^=MK^'MHSQ 
FR = l.-.134*HHSQ+.027'*=MHSQ+MH 
C DO AT HOST 200 ITERATIONS 

00 lAO J = 1,200 

RTAU“ 1./ {FC*(2.4711*AL0G( FR=frRTH*THETAHJ+4.75)+l .5*GE+1724.V 
1 (GE*GE+200. 3-16.87 ) 

TAU = RTAU^RTAU 

HB = 1. /(l.-GE*RTAUJ 

HH = (HB+1. )*(1.+.178*MHSQ)-1. 

SEP = -THETAH*DODS 
PIE= HH#SEP/TAU 

P1E= AMAXK PIMIN, AMINKPIMAX, PIE) 3 
G » 6.1*SQRTtPIE+1.81)-1.7 
T2 = ABSf G-GEl /GE 
GE = G 
DT2 = OT 

OT = <HH +2.-MHSQ3>i=SEP + TAU 
IF (J.EQ.ll GO TO 110 
T1 = ASS ( (OT-OT23 /0T3 

IF (*C-TJ.LT.TE2-)-.AMD. (T2’. LrT-.T-Ea-3 3 GO TO 130 
110 THETAH= THT+.5+0T+DS 
140 CONTINUE 

130 THETA(LP) = OT+DS+THT 
' THETAH = THETA(LP) 

THT = THETAILP3 

H(L3 » (H(L3<‘DS+HH#DS0LD) /(DS + 0S0LD3 

HCLP) = HH 

SEP = -THETAH^^DODS 

SEPR(L) = (SEPR(U*OS+SEP*DSOLD>/(OS+DSOLO) ' 

SEPR(LP) » SEP 
□SOLD = OS 
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L = LP 
IF (L.NE 
HtK2) » 
H{K1) = 
SEPR(K2) 
RETURN 
END 


.K2J GQ TO 10 
2.=!-H{K2J-HtK2-lNC ) 

0 . 

= SEPRIK2) + (SEPR(K2l-SEPR (K2-1NC) ) 


SUBROUTINE HOGRf (KP, TITLE) 

C PLOTS AIRFOIL ON LARGE SCALE 
COMPLEX ROT 
COMMON /C/ PI»6RID#TQL 

COMMON /D/ II,IPLT, JJjKBH»KKjLBM»HODE#HRP#NB#NC#NF»NJ,NKj NNj NP> NX 
COMPLEX XITAILjBP^XIA, XIB»XIC 

COMMON /H/ 0 P <129 )#XIA»XIBjXIC*XITAIL»COME>CTWO>CTHR#RATCiQR» MBPS 
REAL HACHA^MACHB^ MTAIL 

COMMON /K/ MACHA#MACH6»MTAIL> ANGLA> ANGL8»ANGLTiRN*TRANU>TRANL^NRN 

COMMON IVI PLTSZ 

REAL MACHNjKAPPA 

COMPLEX XI# XlSODYf CHAR^XIS 

COMMON CHARt61#20)#XI( 300)# XIS(300)#XI60DY< 300)#UBODY(300)# 

1 VB0DY{300)#X8DDY(300) #YBODV( 300) #H< 300)# THETA (300) »ANGL <300 )# 

2 MACHN< 300)# KAPPA (300 )#XREALC 300) #YREAL <300 )#S< 300) #ES <600 )#Q<600) 

3 # PHI1600)#QL<300)#ILINE(300) 

COMMON SS{900)#XX(900>#YY(900)# yP(900)#YPP(900)# YPPP(9 00) 

DATA NPTMAX /90G/ 

IPL = MOO (IPLT#10) 

IF (IPL.EQ.O) RETURN 
XITAIL = XIBODYI 1) 

CALL LOCUS CIPL#T1TLE> 

IF (KP.LE.l) RETURN 

NT-NK+1 

00 10 J=2#NT 

10 CALL CSYMBL I X IB OD Y< J ) # 3# -1 > 

IF (MODE.GE.O) RETURN 
30 IF (PLTSZ#EQ.O.) RETURN 
CALL FRAMER 
CALL QRIGIN(2.75#5.0) 

CALL CHSIZE (.14) 

CALL CSYMBL < (-0. 75#-4. 0) # T ITLE# 60) 

. IF (RN.EQ.O) GO TO 32 
RNX = l.E-6*RN 
ENCODE (20#70#ROT) RNX 
CALL CSYHBL((6.5#-'t,0)#RDT#20) 

32 CALL SETSF <ABS<PLTSZ)) 

CALL PGSIZE ( AfiS(PLT$Z)+10.#ll. ) 

ROT = CMPLX<XREAL(KP)#-YREAL<KP) ) 

ROT * ROT/CABS(RDT) 

IF(N0.EQ.l) R0T=<1.#0.) 

NPTS = MIN0<NPTMAX#INT<ABS<PLTSZ)/.05 +.5)) 

DS = 2. /FLOAT (NPTS-l > 

SS(1) « -1. 

DO 35 J = 2#NPTS 
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35 


40 


50 

55 


60 

70 


SS<JJ = SS(J-1)+D5 
SSJNPTS) * 1, 

CALL SPLIF 
CALL INTPL 
CALL SPLIF 
CALL INTPL 
CALL CPLOT 
OD 40 J = 


(KP»S>XREAL*rP»YPP»YPPP#3# 
( NPTS#SSj»XX# SjXREAL>YP/YPP 
<KP,S>YREAL>YP^YPP#YPPPj3, 
( NPTS^ SS» YY# S# YREAL, YP# YP P 
(RDT*CMPLX£XX(1)^YY(1))>33 
2jNPTS 


CALL CPLOT <ROT=fCMPLXfXX(J3,YYUn>2) 
IF tPLTSZ.LT.O) GO TO 55 
CALL CHSIZE t.OTJ 
DO 50 L = l^KP 

CALL CSYMBL£RQT*CHPLX( XREAUDj YREAL { 
IF CRN.LE^O.) GD TO 50 
DELS = THETA( D+HILl 
XS^'XREALCD-OELS^SINUNGLILI ) 

YS = YREAL(L) + DELS*COS C ANGL( U) 

CALL CSYMBL<ftOT+CHPLX{ XS^YSJj 4#-l) 
XREAL(L) = XS 
YREALtL) « YS 
CONTINUE 

IF £RN.L£,O.J RETURN 
CALL SPLIF <KP»S#XREAL>YP^YPP>YPPPj3j 
CALL INTPL £NPTS^SS>XX>SiXREAL»YP#YPP 
CALL SPLIF (KP,S^YREAL>YP/YPP#YPPP»3, 
CALL INTPL <NPTS^SS^ YY^ S^YREAL^YP*YPP 
CALL CPLOT IROT+CMPLXf XX(1),YY<1) ),31 
DO 60 J = 2*NPTS 

CALL CPLOT (ROT*CMPLX (XX(J)^YY( J>)»2) 
RETURN 

FORflAT (4HRN *#F5.1^8H MILLION) 

END 


Q • f 3^ 0 * ) 
^YPPP) 

0 • » 3> 0 • ) 
J YPPP) 


L) )#3»-l) 


0.>3/0.) 

iYPPP) 

^ 3^ 0 » ) 
jYPPPJ 


SUBROUTINE LOCUS t IPL, TITLE ) 

C P-LQTS COMPLEX CHARACTERISTIC HOOOGRAPH PLANE 

COMPLEX SsHSQPR^XI# CSQRT, XIMIN# X IMAX 
REAL MACH 

COMMON /A«r GAMMAjMACH 
COMMON /C/ PI/GRID»TOL 

COMMON /D/ II^IPLTj JJ#KSH/KK jLaM^HQDE/MRP,NB»NCi NF/NJf NK^NN^NP^NX 
COMPLEX XITA1 LjBP#XIA/XIB#XIC 

COMMON /H/ BP fl2 9),XXA,XIB,XIC^XITAIL»CQNEf CTWOf CTHR>RATC»QR»N0PS 
REAL ■MACHA’SrMACHB^MTAIL — - - 

COMMON, /K/ MACHA».MACH8>MTA1L# ANGLA,ANGLB,» ANGL-T» RN,-TRANU>-TRANLjNRN 
DIMENSION C0NL(20)f TEMP (61 TITLE (12) 

COMMON DUM(1000)»CONL»TEMP 
EXTERNAL CSQRT^SDFXI 
GAM = (GAMMA-1.) /2. 

COSQ = GAM+ l./(MACH«MACH3 

IX - 5 

XCEN = 5.5 

YCEN = 6.0 

SFI = .25 
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BEPRODUCEBmiTY OF THE 
ORIGINAL PAGE IS POOR 


XSZ * 9. 

IF (NRN.GE.O) GO TQ 10 
IX = 10 
SFI - ,4 
XSZ * 6. 

10 IX IX*INT(XSZ+TQU 
JX = IX 
YSZ « XSZ 

CALL ORIGIN ( XCEN-.5*XSZ#YCEN-. 5*YSZ ) 

XIHIN = -.5*XSZ*SFI*11.j1.) 

XIHAX =-XI«IN 
INO - 1 

IF fIPL.LT.5) GO TO 15 
IND = 20 

12 IF (C0SQ.LE.8.) GO TO 15 
COSO = ♦25*COSO 
GO TO 12 

15 DO 20 J == 1#IN0 

EHX = FLQATaND + l-J)/FLOAT(INO) 

XI = COSQ*EnX + EMX/Cl.i-GArt#ENX*EMX) 

CALL GETHS«(XI^S»HSQPR) 

20 CONL (IND+l-J) « REAHS3 

CALL CONTOR ( IXj J X# INO» XSZ» YSZ, SOFXI , CONL> TEHP# XIHIN, X IMAX ) 
SF = l.ZSFI 
CALL SETSFISF) 

CALL ORIGIN (XCEN,YCEM1 
CALL CSYH6L (XlAfll»-l) 

CALL CSYHBL UIB, 11,-1) 

CALL CSYMBLtXIC, 12,-1) 

CALL CSYHBL ( XlTAIL, 26,-1) 

CALL CPL0T(XIC,3) 

CALL CPL0T(XI8,2) 

CALL CPLOT (XIA,2> 

CALL CSYHBL ( C-1.,0.), 63,-1) 

SCF = SF 
CALL SETSF (1.) 

IF (NRN.GE.O) GO TO 30 

CALL XYAXES < ( 0 . ,0 . ) ,3 . 5, 3 . 5 , SF I, 0. , 6H ( F5 . 1 ) > 

CALL XYAXES < { 0 . , 0 . ) , 3 . 0, 3 . 0, SF 1,90. , 6H ( F 5. 1 ) ) 

CALL CSYHBL ( (-3 .0,-4. 5 >, TITLE, 60 ) 

IF (HODE.LT.O) CALL CSYHBL < (-3. 0,-4. 9), TITLE (7 ), 60) 

GO TO 40 

30 CALL XYAXES ( C 0. ,0. ) , .5*XSZ, . 5*XSZ, SF I, 0. , 6H ( F5 . 2) ) 

CALL XYAXES ( ( 0. , 0 . ) , . 5* YS Z, .5*YSZ, S F I, 90. , 6H ( F 5 .2 ) ) 

CALL CSYHBL ( (-3 . 5,-5 . 2 > , T ITLE, 60 > 

40 CALL SETSF(SCF) 

CALL CH5IZE ( .07) 

IFtdPL.GE.l) .AND.dPL.NE.S) > CALL PL PATH { NP, IP L+2 ) 

RETURN 

END 
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SUBROUTINE P LP ATH <K1,KE ) 

C PLOTS INTEGRATION PATHS IN COMPLEX PLANE 

COMMON /C/ PIj6RI0,T0L 

COMMON /E>/ IIjIPLT> JJ#KBH,iKK>L8HjH0DE>HRP>NBjNC# Nf>NJ*NK#NN#NPiNX 
COMMON ARRAY 
data NSYH /26/ 

HOE * MODE 

DO 20 MODE = 1,K1 

KK » 0 

CALL GTPATH < ARRAY, NC+1,NN, K2 ) 

CALL LINES(NC,NN,ARRAY) 

IF (KK*LE«0) GO TO 20 

CALL GTPATH (ARRAY, NC+1, NN,K2 ) 

CALL LINES{NC,NN,ARRAY) 

20 CONTINUE 
MODE HOE 
IF(K2.LE.2) RETURN 
DO 30 J = 1,9 
KK =• 0 
MODE - -J 

CALL GTPATH ( ARRAY, NC+1,NN,K2) 

IFfM00E.LT.-9> GO TO 60 
CALL LINES CMC, NN, ARRAY) 

CALL GTPATH ( ARRAY, NC+1,NN,K2 ) 

CALL LINES(NC,NN,ARRAY) 

30 CONTINUE 
60 MODE=MDE 
RETURN 
END 


COMPLEX FUNCTION CSORT (Z, BRANCH ) 

COMPUTES THE COMPLEX SQUARE ROOT OF Z AND CHOOSES THE BRANCH 
THE CUT OF THE SQUARE ROOT IS A STRAIGHT LINE FROM THE 
ORIGIN PASSING THROUGH <-BRANCH> 

DIMENSION Z(2),BRANCH(Z) 

REAL IMAGZ 
REALZ = Z(L) 

IMAGZ * Z(21 

R = REALZ*R£ALZ+IMAGZ*IMAGZ 
Q = 0. 

IF CR.EQ.O.) GO TO «rO 
Q = SQRT(.5*(SQRT(R)+ABS(REALZ) )) 

IF CREAL-Zt^GE-.O.) GO TO 10 
R * Q 

Q = ,5*IMAGZ/R 
GO TO 20 

10 R = .5+IHAGZ/Q 

20 IF (Q*flRANCHllH-R*BRANCH{2) ) 30, 40, AO 
30 CSQRT » CMPLX(-Q,-R) 

RETURN 

40 CSQRT = CHPLX(Q,R) 

RETURN 

END 
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FUNCTION BUHPFN f X> FM AX> X L>XR> RATj AL P ) 

C COMPUTES A FUNCTION WHICH VANISHES FOR X<XL AND X>XR# 

C HAS MAXIMUM VALUE FMAX AT X=XM AND HAS TWO CONTINUOUS DERIVATIVES 

BUMPFN = 0. 

IF nx. LE.XL) .OR.tX.&E.XR) ) RETURN 
HR = RAT+(XR-XL) 

RR = I.-CRAT+RAT) 

OX = X-XL 

T = (DX-HR)/(RR*0X+HR) 

BUMPFN =< FHAX*{1.-T*T)**ALP 

RETURN 

END 


SUBROUTINE LEO ( A^ B , NEOS^NSOLNS» I Aj IB t 0 ET ) 

C SOLVE A SYSTEM OF LINEAR EQUATIONS OF THE FORM AX=6 BY A MODIFIED 

C GAUSS ELIMINATION SCHEME 

DIMENSION A(IA,IA)# B(IB,IB] 

NSIZ * NEQS 
NBSIZ = NSOLNS 
DET =1.0 
DO AO I = l^NSIZ 
BIG - A(I,13 

IF (NSIZ.LE.L) GO TO 130 
DO 10 J = 2, NSIZ 

IF t ABS( BIG] .GE.ABS (A(1>J) ) ) GO TO 10 
BIG = ACI^J) 

10 CONTINUE 

BG = 1.0/BIG 
DO 20 J = 1,NSIZ 
20 ACI# J) = A<I^ J)*86 
□0 30 J = l^NBSIZ 
30 B(I,J) = B(I>J)=«=BG 
DET = DET*BIG 
AO CONTINUE 

NUMSYS = NSIZ-1 

DO 120 I = 1j NUMSYS 

NN = I+l 

BIG = A(I>IJ 

NBGRW = I 

DO 50 J = NN,NSIZ 

IF {ABS(BIG) .GE.A8S(A(JjI] )} GO TO 50 
BIG = A(J»I) 

NBGRW = J 
50 CONTINUE 

B6 = 1.0/BI6 

IF (NBGRW. EO. I) GO TO 80 
DO 60 J = I^NSIZ 
' TEMP = A(N6GRW*J) 

A(NBGRWjJ) * A(I,J) 

60 A{I,J) = TEMP 
DET = -DET 
DO 70 J = 1, NBSIZ 
TEMP = B(NBGRW>J) 
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BINBGRWjJ) *= 6(IW) 

70 = TEMP 

80 00 110 K * MN#NSIZ 
PMULT ^ -A(K>I)*BG 
IF (PMULT, EQ.O.) GG TO 110 
00 90 J * NM^NSIZ 
90 ACK^J) = PMULT*A(I#J]+ACKj J) 

DO 100 L - l^NBSIZ 
100 B(K#LJ = PMULT*Bn>L)+B(KyL) 

110 CONTINUE 
120 CONTINUE 

130 DO 170 NCDLB = 1>NBSIZ 
DO 160 I - 1>NSI2 
NROW * NSIZ+l-I 
TEMP * 0,0 
NXS = NSIZ-NROW 
IF INXS.EQ.O) GO TO 150 
DO 1^0 K - IjNXS 
KK = NSIZ+l-K 

140 TEMP = TEMP+B(KK>NCOLB)*A(MROWjKK> 

150 B{NROW#NCOLB) * { B (NROW^ NCOLB )-TEHP 3 / A (NRQW, NROtf ) 
160 CONTINUE 
170 CONTINUE 

DO 180 I - 1,NS1Z 
180 DET * DET+Adjl) 

RETURN 

END 


SUBROUTINE FOUCF (N»G* A>B ) 

C FOURIER COEFFICIENTS BY FAST FOURIER TRANSFORM 
COMPLEX G,EIV>OP#X,GK 

DIMENSION G{l)«XC19f A(1)*B(1) 

DATA PI/3. 14159265358979/ 

L = N/2 

V - PI/l 

EIV = CHPLX(C0S(V>^SIN<V>) 

MX ■ -1 

CALL FFORHS ( HXf Gf A, B j X J 
6K * 0. 

I » 1 

DO 5 J * 1>L#.2 

X(J) - CHPLXI-B(1)/A(IJI 

XU + l) = X(J3*EIV- — ™ — 

5 I = I+l 
K • L 

DO 10 J a l^L 

OP * GK-CONJG(G( J)) 

6K * GK+C0NJG(6(Jn-QP*X(J) 

XU} « ,5*C0NJG(GK) 

GK = G(K) 

10 K » K-1 

X(L+1) » CHPLX(-AIMAG(X(1)),0.) 

X(l) * CHPLX(REAL(X(1)}>0.} 
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RETURN 

ENO 


SUBROUTINE FfORHS (JlXi NX^ G> CN> SNj Y) 

C DO ABS(HX) COMPLEX FAST FOURIER TRANSFORMS OF LENGTH ABS1NX] 

DIMENSION CN<l)>SNll)iG(l)»Ym 
COMPLEX G#Y,£IX 
LOGICAL ISW>NR2 
DATA PI /3.1A159265358979/ 

N = lABSfNX) 

H = IABS(MXJ 

IF UN*LT,2).OR.(H *lTan RETURN 
FAC * -ISIGN(l^NX) 

NH = N*H 
NH = NN/2 
NQH = NH/2 
NQ • 1 

IF (A*{N/A) .EQ.N) NQ = ‘i 
NS = 1 
NT = N 
NR « 2 

IF (MX^GT.O) GO TO 40 
H = 0, 

DH = (PI+PI )/FLOATtN) 

NDM = (N+D/2 
DO 10 J = 1,NDM 
CNU ) = CDS(H ) 

SNIJ) = SI'NCH) 

10 H * H+OH 
K = N 

DO 20 J = l^NDM 
SN(J+NOM) = -SN<J) 

CN(K.) - CNU + 1) 

20 K = K-1 
40 ISW = .TRUE. 

LA = NH-ISIGN(NOH,NX> 

50 NSKP = HIN0(2#NR-1) 

DO 55 K = NR»NT»NSKP 
IF (M0D(NTjK>.EC|.0) go TO 60 
55 CONTINUE 
60 NO = NT/K 
NS = NS*K 
NR - K 
NR2 = *TRUE. 

IF INR.NE.Z) NR2 * .FALSE, 

NDM = NO*n 
NTM = NT*H 
IF (NR2) GO TO 85 
NSX = NS 
NO = 1 
L « NDM 

IF (ISWJ GO TO 75 
DO 65 J = IfNDM 



154 


65 GU) " YIJ)+Y<NDM+JJ 
00 70 KK s 3»NR 
L = L+NDM 
DO 70 J = l/NDM 
70 G( J) = 6( J3+Y< L + J) 

GO TO 110 

75 DO 80 J - 1>N0M 
80 YtJ) = G(J)+G<NOH+J) 

DO 82 KK « 3>h*R 
L - LfNDH 
DO 82 J = 1#N0H 
82 YCJ) = Y(J)+G<L+J> 

GO TO 110 
85 NSX = NS/NR 

If (ISW) GO TO 95 
DO 90 J = 1>NDH 
GCJ] = Y(J)+Y<N0H+J) 

90 GCNH+J) * Yi J)-Y(MDM+J) 

GO TO 110 

95 DO 100 J = l^NDM 

YtJJ = GC J)+6<Nt)M+J) 

100 Y(NH+J) = G(J)-6(NDf1+J> 

IF (NS.EQ.E3 GO TO 190 

110 ID = ND 
IDM = NDH 
ITH * 0 
NSQ = NS/NQ+1 
DO 185 I = 2>NSX 
ITH = ITH+NTH 
IF (I.EQ.NSQ) GO TO 140 
EIX * CMPLXCCN ( IO + l)>f AC=^SN1ID+1) ) 
IF (NR23 GO TO 160 
IF (ITH.GE.MH) ITH = ITH-NM 
LD = ITH+NOr 
MH » ID 

IF (ISW) GO TO 125 
DO 115 J = IjNDM 

115 G(IDM+J3 = YCITM+J) + EIX*Y(LD+J) 

DO 120 KK= 3#NR 
MH = HM+ID 

IF (MH.GE.N) HH = HM-M 

EIX = CMPLX<CN(HH+l)#FAC*SN(MM+in 

LD * LD+NDH 

DO 120 J * l^NDH 

120 G(IDH+J) = GtIDM+J) + EIXtY(LD+J) 

GO TO 180 

125 DO 130 J = 1,NDH 

130 Y(IDM+J) « GtITM+J) + E1X*G(LD+J) 
DO 135 KK= 3#NR 
MM * HM+ID 

IF (HH.GE.NJ MH = HM-N 

EIX = CHPLX(CN<MM+D* FAC*SN<HM+1) ) 

LD = LO+NOM 

DO 135 J = 1, NDH 

135 Y<IOM+J) = Y(IDH+J) + EIX*G(LO+J) 
GO TO 180 

140 LP * NH+ISIGN(NQM>NX) 
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LD = NH+NOH 
IF (ISVJ) GD TO 150 
DO 145 J » 1>NDM 

G(LA+J) * Y(NH+J)+CHPLXCAIf1AS{r(LD+jn»-REAL(Y(LD+J ))) 
145 G£LP+J) * Y(NH+JJ-CHPLXtAIMA6IY ( LD+jn>“REAL( VtLD+J ) ) ) 
GO TD 180 

150 □□ 155 J « UNDH 

YCLA^-JI = G(NH+J )+CMPLX( AIMAG(G(ID+J ) )#“R£AL £G£LD+J n ) 
155 Y£LP+J» = G(NH+J}-CHPLX£AIHAG(G(LD+J) )^-REAL£G(LD+J n 3 
GO TO 180 
160 LP = IDH+NH 
LD » ITH+NDH 
IF (ISW) GO TO 170 
DO 165 J ^ 1>NDH 

G(IDH+J) = Y(ITM+J> + EIX*Y£LD+J3 
165 G(LP +J) * Y(ITM+J> - EIX»Y(LO+J) 

GO TO 180 

170 DO 175 J = l^NDH 

YCIDM+J) - GtITM+J> + EIX*G(LD+J3 
175 YCLP +J) - 6CITM+J) - EIX*61L0+J3 
180 IDH = IDtt+NDM 
185 ID = lO+ND 
190 NT = ND 

ISW » , NOT, ISW 
If {ND.GT.13 GO TO 50 
MX = H 

IF (NX.GT.O) GO TO 210 
IF (ISW) RETURN 
DO 200 1 * 1,NH 
200 GIJ) = Y(J) 

RETURN 

210 ENI = l./FLOATtN) 

IF (ISW) GO TO 230 
00 220 J - 1»NM 
220 G(J3 = ENI*Y(J) 

RETURN 

230 00 240 J = IjNM 
240 G(J) = ENI*6(J) 

RETURN 

END 


SUBROUTINE SP LIF ( NN, Sj F» FP^ FPP, FPPP» KM, VH, KN, VN3 
GIVEN S AND F AT N CORRESPONDING POINTS# COM PUTE A CUBIC SPLINE 
THROUGH THESE POINTS SATISFYING AN END CONDITION IMPOSED ON 
EITHER END, FP#FPP,FPPP WILL BE THE FIRST#SECQNO AND THIRD 
DERIVATIVE RESPECTIVELY AT EACH POINT ON THE SPLINE 
DIMENSION NN{2)#F12)#FP(2}#FPP(2)#FPPP(2)#S(2) 

INDX(JJ) = JJ 
N » 1ABS(NN(1)) 

NORM - 1 

IF (NN(l).LT.O) NORM = 0 
I = INDX(l) 

J = INDX£2) 
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JJ = 2 

DS = S(JJ-S{I) 

D = OS 

IF COS.EQ.O* ) GO TO 200 
DF = (F(J)-F£I)J /OS 
IF tIABS£KM)-2) 10^20 j30 
10 U = .5 

V = 3.*(OF“VH3/OS 
GD TO 50 

20 U » 0* 

V = VH 
GO TO 50 

30 U = -1. 

V = -OS*VM 
GO TO 50 

40 I = J 

,}J = JJ + 1 
J = INOX£JJ) 

05 = S£J)-S£I) 

IF (0*05. LE. 0. ) GO TQ 200 
DF » (F(J)-F( I))/0S 
B = 1./ fDS+DS+Lf) 

U = B*DS 

V = B*<6.*DF-V) 

50 FP<I) - U 

Fppm = V 

U = 12,-UH-DS 

V = 6.+0F+DS+V 

IF tJJ.LT.N) GO TO 40 
IF (KN-2) 60» 70^80 
60 V = {6.*VN-V3 /U 
GO TO 90 
70 V - VN 
GD TO 90 

80 V = (DS+VN+FPP£13 )/(l.+FP(in 
90 B = V 
D = OS 

100 DS = 5£J)-Sa) 

U * FPPtI)-FPm«V 

Fpppm = tv-u)/os 
Fppm = 0 

FPU) = {F{J)-FU)3/OS“OS*£V+U+U)/6. 

V ■ u 
J = I 

JJ * JJ-1 
I, S„IN0X(JJ-1 > 

IF (JJ.GT.l) GD TD 100 
N » INDX(N) 

FPPPCN) = FPPP(K-l) 

FPP(N) = B 

FP«N) - DF+0«{ FPP{N-l)+a+e )/64 
IF (KM.GT.O) RETURN 
N = IA8S(NN(D) 

FPPP<J) = 0. 

V - FPP£J) 

105 I ^ J 

JJ = JJ+i 
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J » INDXtJJ) 

OS = S(J)-S(I) 

U = FPPU) 

FPPPCJ3 = FPPPtIl+.5*0S*(F(I)+F<J)-0S*DS*(U+V)/12.} 

V = U 

IF ( JJ.LT.N) 60 TO 105 
RETURN 

200 PRINT 210 
PRINT 220 
STOP 

210 FORMAT NDN-MONOTONLC ABSCISSA FOR SPLINE FIT ***<■ ) 

220 FORMAT t4^H0+«* PROGRAM STOPPED IN SUBROUTINE SPLIF *** ) 

END 


SUBROUTINE PSPLIF ( Hj S^ F, FP^FPP, FPPP» FIND 
PERIODIC SPLINE FITTING ROUTINE 

DIMENSION S{1)>F(1J»FP(1)»FPP(1)>FPPP {D^FINDD 
CON » 0. 

IF CH.LT.O) CON = FINTtl) 

N « lAB^(M) 

K = 1 
1 = 1 
J = 2 

05 » S12)-S(l) 

D = DS 

IF (DS,EQ,0, ) GO TO 200 
OF = 6.+IF (2>-F( 1> ) /DS 
U1 = .5 

VI - DF/(D5+0S1 
U2 = .5 

V2 = (DF-6. J/ (DS+DS ) 

60 TO 20 
10 I = J 
^ a J + K 

DS = St J)-Sil) 

IF tO*DS.LE*0.) GO TO 200 
DF = 6,*(Ft J)-F(I) ) /DS 
B = l«/tDS+DS*Ul) 

U1 = B*DS 
VI a B*(DF-Vi) 

6 = 1 ./ (DS + DS + U2) 

U2 = 8+OS 

V2 = B+CDF-V2) 

20 FPtI) = U1 
FPPCI) = VI 
FPPP(I) = U2 
FINTtl) « V2 
Ui = t2.-Ul)*DS 
VI = DF+0S»V1 
U2 = (2.-U2)+0S 
V2 » DF+DS*V2 
IF IJ.NE.N) 60 TO 10 
VI = -Vl/Ul 
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V2 * (6.-V2>/U2 
B1 = VI 
B2 = V2 

40 DS = SU)-S(I) 

DF » (F(J)-F(in/DS 
U1 = FPP{ I)-FPCI)*Vi 
FPP(I) = U1 

FP{I> = OF-OS*(V1+U1+U13 /6. 

VI * U1 

U2 = FINT(I)-FPPP(I)«=V2 
FINK I) = U2 

FPPP(I) = DF-0S*( V2+U2+U2) /6. 

V2 = U2 
J = I 
I = I-K 

IF (J.NE.l) GO TO 40 

X =-tFPPCl)-fil)/((FINT(l)-B2}-{FPP(l»-filJ ) 

FP(1) = X 

U = FPPC13 > X*(FINTll)-FPPa) J 
FPP(l) = U 
FPP(M) = FPPm 
FINTCN) = FPP(N) 

FPINJ * FP<1) 

FPPP(N) = FP(N) 

FINTU) = CON 
60 I - J 
J = J + K 

OS = S( J)-S <I » 

FPCJ3 = FP(J)+X*(FPPPCJ]-FP<J)) 

V * FPP{J)+X*(FINT(J3“FPP( JJ> 

FPP(J) = V 
FPPP(I) = CV-UJ/DS 

FINTU) = FINT(I)+.5*DS*(F(I) + F(J)-0S*D$*(U+V)/12.) 

U = V 

IF (J*NE*N) GO TO 60 
FPPPCN) = FPPPtl) 

RETURN 

200 PRINT 210 
PRINT 220 
STOP 

210 FORMAT (48H0*>^** MON-HONOTDNIC ABSCISSA FOR SPLINE FIT ***♦ ) 
220 FORMAT (45H0*^+ PROGRAM STOPPED IN SUBROUTINE PSPLIF +♦+ ) 

END 


SUBROUTINE INTPL ( NX» SI » FI ^ S» F> FP, F P P » F P PP ) 

GIVEN S*FfS) AND THE FIRST THREE DERIVATIVES AT A SET OF POINTS 
FIND FI1SI3 AT THE NX VALUES OF SI BY EVALUATING THE TAYLOR SERIES 
OBTAINED BY USING THE FIRST THREE DERIVATIVES 
DIMENSION SltDj FIU)^ sm» F(l)> FP(1)> FPP(D# FPPPCl) 

DATA PT/. 33333333333333/ 

J = 0 

DO 30 I = 1#NX 
VAL = 0. 
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SS - SIU) 

10 J = J+1 

TT = SCJ)-SS 
IF (TT) 10,30^20 
20 J » HAXO(ljJ-l) 

SS = SS-S(J) 

VAL = SS* ( FP( J)+.5*SS*(FPP tJ )+SS=HpT*FPPP ( J} ) ) 
30 FIU) * F(J)tVAL 
RETURN 
END 


SUBROUTINE INTPL I ( HX> FI X> Fj F P, F PP, FP PP > 

DIMENSION Xtl)#F{l)jFPCl)#FPP(l)j»FPPPm^XI{X)#FI{l) 

REAL MEWiLEFT 
DATA TOL /l,E-9 / 

XI(L) WILL SATISFY F(XI(D) - FI(L) FOR L = 1 TO ABSCMX) 
F^FP^FPPiFPPP ARE THE FUNCTION AND DERIVATIVES AT THE X POINTS 
NX =IABS(HX) 

K * 2 
LI = 1 
NEW = X(l) 

FN = fm 
FVAL » FI(l) 

IF (A8S(F( l>-FI{i))»GT.TaU GO TO 5 
LI = 2 

XI(l) = X(l) 

IF (NX.EQ.l) RETURN 

5 DO 100 L *' LI, NX 

IF f CFVAL.NE.FICD) ,QR.(L.£Q.l) ) 60 TO 6 
NEW = X(K) 

FN = F(K) 

IF (FP(K)*FP(K-1).GT.0*5 GO TO 6 

ROOT » SQRT(FPP(K-1)**2-2.*FP(K-1)*FPPPIK-1) ) 

DX = -2.*FP(K“l)/(FPP(K“i)+SlGNtRD0Ti FPP(K-l) )) 

NEW * X(K-IJ*DX 

FN =F( K-1) +DX*(FP(K-1)+DX*(. 5*FPP(K-1)+DX*FPPP(K-1) /6. J ) 

6 FVAL » FICL) ' 

SGN a F(K-1)-FVAL 

IF (NEW.GT.X(K-1 ) ) SGN = FN-FVAL 
DO 10 J = K>N 

IF{FPU)*FP(J-i) ,LE.O.) GO TO 7 
IF fSGN*(F{J)-FVAL) .LE,0.) GO TO 20 
GO TO 10 

7 ROOT = SORT(FPP( J-1>**2-2.*FPU-13*FPPP(J-1)) 

DX = -2.tFP(J-l)/(FPPlJ-i)tSI6NCR0QT,FPP(J-l)) ) 

RIGHT * XtJ-l)+DX 

LEFT = AHAXK X( J-1),NEW+T0L) 

IF (LEFT. GT. RIGHT) GO TO 10 
F2 = .5*FPP(J-1) 

F3 FPPP(J-lI/6, 

FN - F( J-1)+DX*(FPIJ-11+DX*{F2+0X*F3)) 

IF CSGN*tFN-FVAL) .LE.O) GO TO 65 
10 CONTINUE 
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IF (MX.GT.O) GD TG 11 

MX = L-1 

RETURN 

11 PRINT ^99>LjFI(L) 

^99 FORMAT ( * TROUBLE AT I 3X» E16. 6 ) 

J ^ K 
GO TO 100 

ZO DLO ^ AMAX1(X( J-1>#NEW+TDL ) 

F2 = .5+FPPCJ-l) 

F3 = FPPP(J-i)/6. 

START=OLO 
DO AO K = 1,10 
OX - DLD-XU-1> 

FPOLO = FP (J-1)+0X+(FPP{ J-l}+.5*DX*FPPPt J-1) ) 

IF (ABS (FPOLO ) .LE. TOD GO TO 60 

FN = F( J“1 ) + DX^(FPt J-l»+0X + {F2+DX*F3n 

NEW * OLO-(FN-FUAU /FPOLO 

IF INEW*LT. START) GO TO 60 

NEW * AHIN1(N£W,X{ J) ) 

IF (ABS(NEW-OLD J.LT.TOL) GD TO 90 
AO OLD = NEW 
CALL ABORT 
60 RIGHT * X(J) 

LEFT = OLD 

IF (SGN*(FN-FVAL) .GT.0») GO TO 65 
RIGHT = LEFT 
LEFT * XHL-1) 

IF (L.EQ.l) LEFT = X(l) 

65 DO 70 K = 1,50 

IF { (RIGHT-LEFT). LE.TOL) GO TO 90 
NEW = ,5=i<(LEFT+RIGHT) 

DX - NEW-X(J-l) 

FN = Ff J-1)+DX*(FP(J-1)+DX*(FZ+DX*F3)) 

IF { (FN-FVAD+SGN.LE.O.) GO TO 80 
LEFT= NEW 
GO TO 70 
80 RIGHT » NEW 
70 CONTINUE 
90 XltL) = NEW 
100 K * J 
MX - NX 
RETURN 
END 


SUBROUTINE GDPLDt( NRN, LA6EL,NFRAHE ) 

DIMENSION ID{31,LABEL(2) 

COMMON /KDRNPP/ SF,SIZE#ANG,XHAX,YHAX,XOR, YOR 
C INITIATE PLOT 

LOGICAL ISW 

DATA SF/1,/,SIZE/.1A/,ANG/0./,XOR/0,/,YOR/0. /, XHAX /II . YHAX/11. / 
DATA ISW /.FALSE./ 

IF (ISW) RETURN 
NIN = 12*(NFRAME+l> 



161 


NRUN » lABSlNRN) 

ENCODE (30,30^ID) LABEL, NRUN 
IDO) = 1D(3) »AND.«N0T.7777B 
ISW = .TRUE, 

IF (NRN.LT.O) GO TO 25 
CALL PLOTS (NIN,ID) 

RETURN 

25 CALL PLOTSBU NIN, ID) 

RETURN 

ENTRY FRAMER 
ANG * 0, 

SIZE = .14 
SF = 1. 

XOR = 0. 

YOR = 0. 

XHAX = 11. 

YMAX = 11. 

CALL FRAME 
RETURN 

ENTRY ENDPLT 

CALL PLOT (0.,0.,999) 

RETURN 

30 FORMAT ( 2A10, 3HRUN, 1 5 ) 

END 


SUBROUTINE ORIGINtX^Y) 

COMMON /KORNPP/ SF, S I ZE , ANG, XHAX, YHAX, XOR, YQR 

XQR = X 

YOR = Y 

RETURN 

ENTRY PGSIZE 

XMAX = X 

YHAX = Y 

RETURN 

ENTRY CHSIZE 

SIZE » X 

RETURN 

ENTRY CHRANG 

ANG = X 

RETURN 

ENTRY SETSF 

SF ^ X 

RETURN 

ENTRY CHNHDE 

HOOE= 1ABS{M0DE-10) 

RETURN 

END 
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SUBROUTINE CONTDR ( Nj MC # XS# YS/FN# CONL# TEMP/ XIHIN^ XIH AX ) 

C PLOTS LEVEL CURVES DF ABSOLUTE VALUE DF FN 
COMPLEX FN^W>XIHIN#XIMAX 
LOGICAL 1SW*JSW«KSU 
DIMENSION CONLtll^TEMPIl) 

EQUIVALENCE ( A« J A) » ( J& ) j (C> J C ) > ( JD) 

DATA 1S« /.TRUE./ y TOL /.Ol/ 

RDXI = tREAL(XIMAX>-REAL{XIMIN) )/FLOAT(M) 

APXI * { AINAG{XIHAX)-AIMAG(XIHIN)J/FLQAT{N) 

DX » XS/FLOATtrtJ 
DY = YS/FLDATCN) 

NCL = lABS(NC) 

MP = M+1 
DO 10 I = l^MP 

W = FN<XIHIN+FLQATCI-1)*RDXI> 

10 TEMPtn - REAL(W)*REAUW) + AIHAG ( W ) *A1MAG ( W > 

YP * 0. 

DO 400 J = 1,N 
XP * 0. 

W = FN(XIHIN+CMPLX(0,#FLDAT( J)*ADXin 
TH * REAL(M»4REAUW) + AIHAGt W) *AIMAG tW ) 

YPP * YP+DY 
DO 360 I = i»n 
XPP = XP+OX 

W » FN(XIHIN+CHPLX£FLOATCI)*RDXI#FLOATt JJ4ADXI3 ) 

TP * REAL(W)*REALfW) + AI HAG C W J *AIHAG ( W J 
TOP * AHAX1 {TP^TM^TEMP{I)jTEMP<I+1)) 

BOT - AMIN1CTP,TM»TEMP ( I)>TEHP( I+in 
IF <CDNL(NCL) .LT.BDT) GO TO 350 
DO 40 LI * 1*NCL 
IF£CONL(Li; .GT.BOT) GD TO 50 
40 CONTINUE 
GO TO 350 

50 DO 340 L = Ll^NCL 

IF fCONLtD.GT.TDPJ GO TO 350 
A =■ TEMPCD-CONUL) 

B - TEHP(I+1)-CDNLCL} 

C * TH-CONLtLI 
D « TP-CQNL(L) 
lA > ISIGNd^JA) 

IB = ISIGN<2>JB) 

IC = IS16N<4>JC) 

ID - IS16N<8#JD> 

ITYP = 8+1 lA+IB + IC+ID+D/Z 

GD TO {340j 220»230#240#250^Z60^ 270»280j 280# 270^ 260,250,240, 230» 

1 220,-340) I-T'YP 

220 XI = XP 

Y1 =■ YP+DY*A/{A-CJ 
X2 = XP+DX4A/(A^B) 

Y2 = YP 
60 TO 300 

230 XI = XP+DX*A/(A-0) 

Y1 » YP 
XZ = XPP 

Y2 = YP+0Y*B/{B-0) 

GO TO 300 
240 XI = XP 
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Yl 

= 

YP+DY*A/(A-C) 


X2 

= 

XPP 


Y2 

= 

YP+DY»B/ {0-D) 


GO 

TO 

300 

250 

XI 

■ 

XP 


Yl 


YP+OY*A/{A-C) 


X2 

= 

XP+DX*C/(C-0) 


Y2 


YPP 


GO 

TO 

300 

260 

XI 


XP+0X*A/ (A-B) 


Yl 

= 

YP 


X2 

= 

XP+DX*C/(C-D) 


Y2 

= 

YPP 


GO 

TO 

300 

270 

ISW 

s 

.FALSE. 


E = (A+0>+(8+C> 

R = ABS (E/ nA+D)-(B+C J ) ) 

JSW - R.LE.TOL 
IF (JSW> GO TO 240 
KSW - A^E.GT.O. 

IF {KSW) GO TO 230 
280 XI = XP+OX+C/{C-D) 

Yi = ypp 
X2 » XPP 

Y2 = YP+DY+B/ (B-D ) 

300 CALL CPLOT ( CMP LX ( XI# Yl) ^ 3 ) 
CALL CPLOT <CMPLXCX2#Y2)#2) 
IF (ISW) GO TO 340 
ISW «= .TRUE. 

IF ( JSW) GO TO 260 
IF (KSW) GO TO 250 
GO TO 220 
340 CONTINUE 
350 TEMP(I) = TH 
XP = XPP 
TH = TP 
360 CONTINUE 

TEMP(H+1) = TP 
YP - YPP 
400 CONTINUE 
RETURN 
END 


REPRODUCIBiLnY 
origin^al page is 


OF THE 
POOR 


SUBROUTINE LINES (Kl#K2#ARRAY) 
COMPLEX ARRAY(l) 

CALL CPLOT tARRAY{Kl)#3) 

KP = Kltl 
00 10 J = KP#K2 
10 CALL CPLOT (ARRAY{J)#2) 

RETURN 

ENO 
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subroutine points (NSYHjiK 1»K2, ARRAY) 
COMPLEX ARRAY(l) 

DO 20 J =* K1jK2 

20 CALL CSYHBL t ARRAYC J ) ,NSYM»-1 ) 
return 
END 


SUBROUTINE CPLOT (X>IPEN) 

C HOVE PEN TO THE POSITION OEEINEO BY X WHEN X IS ON THE PAGE 
COMMON /KORNPP/ S F> S IZ E# AN6> XHAX, YMAX* XOR> YDR 
DIMENSION X<2) 

DATA XL^YL^IPENL /0.#0*>0/ 

XX = X0R+SF+X(1> 

YY = Y0R+SF*X(2) 

IF CABSC XX+XX-XMAX ) .GT.XHAX) GD TO 30 
IF (ABS(YY+yY-YHAX) .GT.YHAX) GO TO 60 
IF CIPENL.NE.O) GO TO 80 
10 CALL PLOT {XX#YY#IABSCIPEN)J 
IPENL = 0 
20 XL * XX 
YL - YY 

IF CIPEN.GT.O) RETURN 

IF tIPENL.NE.03 GO TO 100 

XOR = XX 

YOR - YY 

RETURN 

30 IPENL =-IABStIPENU 

IF {(XX. GT.XHAX). AND. tIPEN.LT. 0.3) GO TO 90 
IF (IPENL. NE. 03 GO TO 20 
IPENL - -2 

IF CIPEN.EQ.3) GO TO 20 
XP = XHAX 

IF (XX.LE.0.3 XP = 0. 

40 YP = YY+(«YL-YY)/(XL-XX3 3=^(XP-XX) 

IF (aBS(YP+YP-YMAX 3.GT.YMAX3 GO TO 110 
50 CALL PLOT (XP# YP^ lABSt IPENL) 3 
IF (IPENL. EQ.33 GO TO 10 
GO TO 20 

60 IPENL * IABS( IPENL ) 

IF (IPENL. EQ. 2) GO TO 20 
IPENL = 2 

IF <IPEN.EQ.3) GO TO 20 

YP = YHAX - — - ’ 

IF (YY.LX.0.3 YP =• 0. 

70 XP * XX+( ( XL-XX) /(YL-YY) )*(YP-YY) 

GO TO 50 

80 If CIABS<IPEN),E0.31 GO TO 10 
IPENL IPENL+1 
IF (IPENL. EQ. 3) GO TO 70 
IPENL * 3 
GO TO 40 
90 CALL FRAMER 
XL * 0. 
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YL » 0. 

IPENL = 0 
RETURN 

100 XOR = XP 
YOR = YP 
RETURN 

110 IF (IPENL, EQ, 3) 60 TO 70 
GO TO 60 
END 


SUBROUTINE CSYMBl (X>N»L) 

DIMENSION X(2) 

COMMON /KORNPP/ S F» SI ZE » ANG^ XMAX, YMAX, XOR, YOR 
C CHANGE RELATIVE MOVEMENTS TO ABSOLUTE INCHES 
XX » X0R+SF«X(1) 

YY = Y0R+SF*X(Z} 

C CHECK TO SEE IF WE ARE WITHIN THE PAGE 

IF ( (XX.LT.O.) ,DR. (YY.LT.O.) .OR. (XX.GT.XHAX) .OR, (YY.6T.YHAX) ) 
IRETURN 

CALL SYMBOL ( XX, YY, SI ZE,M, ANG, L ) 

RETURN 

END 


SUBROUTINE XYAXES ( X, BO T, TOP , SC F, ANGL, FORM AT ) 
C PLOTS AND LABELS COORDINATE AXES 

COMPLEX ZB,ZT,H,COR 

COMMON /KORNPP/ S F , S IZE, ANG, X MAX, YMAX, XOR, YOR 

DIMENSION X(2), Y(2J 

ANGO = ANG 

SFO * SF 

SIZO = SIZE 

Yd) = XOR 

Y(2) = YOR 

ANG = 0. 

SF = 1. 

SIZE = .14 

XOR = X0R+SF0*X(1) 

YOR = YOR+SFO*X(2) 

H = 1. 

COR = (-.40, -.3) 

NC = 16 

IF (ABS(ANGL) .NE.90. ) GO TO 10 
H (0.,1. ) 

COR = (-.75,0. > 

NC = 15 

10 CALL CPLOT £H*TQP,3> 

CALL CPLOT (-B0T*H,2) 

L = TOP 
K = BDT 
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N * 1+K+L 
S * -FLOAT{K)=f'SCF 
ZB = ”Fi.aATlK)*H 
ZT = ZB+COR 
OQ 20 I = 

CALL CSYMBL (Z8^NC#“1) 
B = S+FLOAT( I-1)*SCF 
C 4=*++N0N-ANSI**** 

ENCODE (IOjFDRMAT^AJ B 
CALL CSYKBL (ZT>A>5) 

ZB = ZB+H 
20 ZT - ZT+H 
SF = SFO 
SIZE * SIZO 
ANG = ANGO 
XOR = Yd) 

YQR = ¥(2) 

RETURN 

END 
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2. Update of the. Analysis Code H 

The basic documentation for program H is given in Volume II. The 
current version of the program has been 'improved in two ways. First, 
a correction term has been added to the wave drag to account for the 
nonconservation of mass at shock waves. Second, computing time has 
been dramatically reduced by adding a fast Poisson solver for the 
subsonic region of flow. 

Two new NAr-IELIST input parameters, NPAST and NRELAX,' have been 
added. The current version of program H can be run without the fast 
solver by setting NFAST = 0, NRELAX =1, NSl == 20 and running about 
NS 5= 400 crude plus NS 200 fine grid cycles. The suggested way to 
run the current version is with NFAST =1, NRELAX =6, NSl =1, and 
NS = 20 crude plus NS = 10 fine grid cycles. 

The glossary of NAMELIST input parameters on pages 183-185 of Vol- 
ume II has been rewritten and is given below. It now includes the two 
new parameters and revised definitions of many of the others . Tables 
1-3 referred to in this glossary are found on pages 188-191 of Volume 
II. (On page 138 the definition of EPSIL should be: 

EPSIL Real. Trailing edge angle dividedby pi. 

If a number greater than 1.0 is input then the 
program will compute EPSIL.) 

A. Glossary of Input Parameters 

ALP Real. Angle of attack in degrees- See CL and FSYM. 

BCP Real, Starting value of the base pressure which is used 

when the pressure distribution is extrapolated linearly 
on the upper surface. BCP is not used when LSEP=M+1. 
Default 0.4. 

BETA Real. Damping coefficient for rotated difference scheme 

used to solve the flow equations. BETA greater than aero 
may help the convergence for Mach numbers near 1.0. 

/ Default 0.0. 
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CL Real. Coefficient of lift. Tiie program permits eittxejc 

ALP or CL to ie input on a NAMELIST card. If neither 
ALP nor CL is input the default is ALP — 0.0. 

EM Real. The free stream Mach number. It must be less 

than 1.0. Default 0.75. 

FSYM Real. Indicates format of input airfoil coordinates to be 

copied onto the file TAPES. See Table 1. The program 
assumes that the input airfoil coordinates are oriented 
at ALP = 0.0. Default 1.0. 

GAMMA Real. Gas constant. Default 1.4. 

IS Integer. Wvimber of smoothings of input airfoil coordi- 

nates. Also the number of smoothings of the displacement 
thichness. Default 2. 

ITYP Integer. ITYP is used along with NS on NAMELIST input 

cards to indicate mode of operation (see Table 3) . If 
NS is positive, 

ITYP=4 produces all printed and plotted output 
ITYP=5 same as ITYP=4 but sonic line omitted on plot 
ITYP=3 produces all printed output 
ITYP=2 produces only the Mach chart 
ITYP=1 produces no output 

ITYP=0 causes the program to terminate and produces all 
printed and plotted output. 

Default 1. 

IZ Integer, Width of output line control. IZ is the number 

of characters on a line of output. In addition, if 
IZ = 120 , the Fourier coefficients of the mapping are 
printed. Default 125. 

KP Integer. Print parameter. The program prints one line of 

output every KP cycles. Default 1. 

LL Integer. Index of location on airfoil where the sweep 

through the upper and lower surfaces begins for the finite 
difference scheme. LL should be changed if its value 
lies in or near a supersonic region. Smaller values are 
used for high angles of attack. Default M/2 t 1. 

LS3^ Integer* Inde x of x w hich gives, the location, where the 

optional linear extrapolation for the pressure distribu- 
tion is begun on' the upper surface. It shoul'd be placed' 
at the point of separation. If used, the pressure 
distribution is modifed from x at LSEP+1 to the trailing 
edge. If LSEP = M+1 then the pressure distribution is 
not altered. Default M+1, 

M Integer, The number of mesh intervals in the angular 

direction in the circle plane at which the flow equations 
are solved. Default 160. 

N Integer. The number of mesh Intervals in the radial 

direction in the circle plane at which the flow equations 
are solved. Default 30, 
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NFAST 

NFC 

NPTS 

NRELAX 

NEW 

NS 

NSl 

PCH 

RBCP 

RCL 

RDEL 

EFLO 

RN 

SEPM 

ST 


Integer. The irumber of sweeps through the grid points 
for each flow cycle using the fast Poisson soLyer for the 
subsonic region of the flow. (See NS for definition of 
flow cycle.) Default 1. 

Integer, The nuniber of Fourier coefficients used for the 
mapping. Default 80. 

Integer. The munber of points at which the Nash-Macdonald 
boundary layer equation is solved. Default 81. 

Integer. The number of sweeps through the grid points for 
each flow cycle using the relaxation technique. (See NS 
for definition of flow cycle.) Default 6, 

Integer. Run number. Default 1. 

Integer. NS is used along with ITYP on NAMELIST input 
cards to indicate mode of operation (see Table 3) . Also, 
if NS and ITYP are both positive, NS is the maximum 
number of flow cycles computed before the next NAMELIST 
is read. A flow cycle consists of NFAST fast solver 
iterations plus NRELAX relaxation iterations. Default 1. 

Integer. Number of flow cycles computed between boundary 
layer calculations. (See NS for definition of flow cycle.) 
Default 1. 

Real. Chord location at which the turbulent boundary 
layer calculation is begun (the laminar boundary layer is 
neglected) . Transition is assumed to occur at this point. 
Default 0.07. 

Real. Relaxation parameter for iterating BCP. RBCP is 
not used when LSEP = M-H. Default 0.1. 

Real. Relaxation parameter for the circulation or the 
angle of attack. Default 1.0. 

Real. Relaxation parameter for the boundary layer dis- 
placement thickness. Default 0.125. 

Real. Relaxation parameter for the velocity potential in 
the flow calculation. Default 1.4. 

Real. Reynolds number based on chord. If RN = 0.0 
inviscid flow is computed around the input airfoil with 
no boundary layer. Default 20.0E6. 

Real. Bound imposed on separation parameter SEP for x 
less than ABS(XSEP). Also, separation is predicted when 
SEP is greater than SEPM. Default 0.004. 

Real. Convergence tolerance on the maximum velocity 
potential correction and the maximum circulation correc- 
tion. ST =: l.E— 5 may be reasonable, ST = 0.0 ensures the 
completion of NS flow cycles. Default 0.0. 
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XMON 


XP 


XSEP 


Real. X location ^here th.a search for monotonicity of the 
pressure distribution is begun \^hen modifying BCP for the 
pressure extrapolation. XETON is not used when 
LSEP = M+1. Default 0-95. 

Real. Indicator for test data. If XP is greater than 
zero then test data must be prepared as shown in Table 2 
and copied onto the file TAPE4. The points will be 
plotted on the pressure distribution plot. If XP = 0.0, 
no test data are expected. Default 0.0. 

Real. Absolute value: For x less than ABS (XSEP) , if SEP 
exceeds sepm then the program sets SEP equal to sepm 
on the upper surface so that the boundary layer calcula- 
tion can proceed through a shock wave. For v greater 
than ABS (XSEP) , SEP is free to exceed SEPM to allow 
separation to be properly predicted. Sign; Make XSEP 
positive for supercritical airfoils. On the upper surface 
the displacement thickness is required to be monotoni- 
cally increasing. On the lower surface for x less than 
0.6 the displacement thickness is required to be monotoni- 
cally increasing and after that once it starts to 
decrease it is required to be monotically decreasing. 

Make XSEP negative for other airfoils . Then the upper 
and lower surfaces are both treated as upper surfaces . 
Default 0.93, 
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B* LISTING OF UPDATE CORRECTIONS FOR VOLUME II 


PAGE 202 INSERT AFTER LINE 3 THE FOLLOWING - 
COMMON /FL/FLUXTA 

PAGE 202 DELETE LINE 11 AND REPLACE BY THE FOLLOWING 
AjNPTSjLLj I^ LSEP, MA^NEW 

PAGE 202 DELETE LINE 19 AND REPLACE BY THE FOLLOWING 
2 XHON,XP^XSEP>NRELAX>NFAST 

PAGE 202 INSERT AFTER LINE 22 THE FOLLOWING 
NEW=1 
NFAST=1 
NRELAX=6 
NS1 = 1 

PAGE 202 INSERT AFTER LINE 38 THE FOLLOWING 
NEW=1 

PAGE 20A DELETE LINE 7 AND REPLACE BY THE FOLLOWING 
105 CONTINUE 

IFtNFAST.LE.O) GO TO 141 
CALL SWEEPl 

141 IF(NRELAX.LE.O) GO TO 151 
DO 142 Lf=l»NRELAX 

CALL SWEEP 

142 CONTINUE 
151 NEW^O 

PAGE 204 DELETE LINE 17 AND REPLACE BY THE FOLLOWING 
1 BCP^FLUXTA 

PAGE 204 DELETE LINE 55 AND REPLACE BY THE FOLLOWING 
190 F0RMAT{5X^I4# 4E12.3^ I4f 13^ 16, 2F10.4,2F11»5#E12,4) 

PAGE 205 DELETE LINE 7 AND REPLACE BY THE FOLLOWING 

1 2X,2HJK,2X3HNSP,5XA4,5X4HANGD, 8X3HCPI,8X3HBCP, 8X4HFLX4/ J 

PAGE 206 DELETE LINE 15 AND REPLACE BY THE FOLLOWING 
IFnj.LE.HA),0R.(J.6E.MB) } J = J + I 

PAGE 207 INSERT AFTER LINE 15 THE FOLLOWING 
COMMON /FL/FLUXT4 

PAGE 207 DELETE LINE 34 AND REPLACE BY THE FOLLOWING 
UP = LL+1 
DO 30 I*LLP,n 

PAGE 207 DELETE LINES 38 THRU 43 AND REPLACE BY THE FOLLOWING 
DO 32 J=1,N 
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32 J)-E( J) 

DO 51 J»1jN 
£( J)sO. 

RPP{ J )«0. 

51 CONTINUE 

PAGE 208 INSERT AFTER LINE 2 THE FOLLOWING 
DO 11 J«1>NN 

PHIfMH+l>g)=PHI(2,J)+DPHi 

E<J)=0, 

11 CONTINUE 
TE=-2. 

I»HH 

CALL HURMAN 
00 50 J=1#N 

J)=PHI tMMj J)-E( J> 

50 PHItli J)»PH1( MM> J)-OPHI 
DO 12 J=1jN 
EUJ=0. 

12 CONTINUE 
TE*2. 

I*LL 

CALL NORMAN 
00 13 J=1«N 

13 PHKLL# J)=PHI(LL#J)-£U) 

PAGE 208 INSERT AFTER LINE 13 THE FOLLOWING 
FLUXT-0. 

NF*N-10 

IFIN.LT.30) NF=N-5 
DO 2^2 L-2^MH 

U^RfNF)*(PHI( L+ljNFl-PHITL-ljNF) )+DELTH-SI{L) 
V=R(NF)*R(NF)*{PHHL>NF+i)-PHI( L#NF''l) J+DELR -CO<L> 
0F=(U*0+V*V)/FP(L^NF) 

RH*(l.+C2«EH*EH*a.“QF) }*+{.5/C2) 

FLOX=RH*V/RtNF) 

FLUXT*FLUXT+FLUX 
242 CONTINUE 

FLUXT=OT+FLUXT*CHO 

FLUXT4-FLUXT 

PAGE 213 INSERT AFTER LINE 16 THE FOLLOWING 
COMMON /FL/FLUXT4 

PAGE 214 INSERT AFTER LINE 12 THE FOLLOWING 
QCR»$QRT(QCRIT) 

DC04=2.+(QCR-1.)*FLUXT4 

CD=CD+0CD4 

C0W=CDW+DCD4 

PRINT 261> CDWjCDF^CD 

261 FQRMATtSH C0W»F10.5#5H CDF=Fl0.5#4H CO=F10.5) 

PAGE 222 INSERT AFTER LINE 42 THE FOLLOWING 
SNl»2,/ARCLf MM) 

DO 322 I=1,M 

322 ARCLCD-ACOSCl.-SNl^ARCLd)) 

ARCUHM)*PI 
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PAGE 222 INSERT AFTER LINE 54 THE FOLLOWING 
TTC1)-.5*(TH(1)+THCNT)+PI) 

PAGE 223 DELETE LINE 19 AND REPLACE 8Y THE FOLLOWING 
Z(1)=0. 

VAL=.5*PILC 

VALl»PILC/3. 

Z(2)*VAL*(DS£1)+DS{2} ) 

NI=NFC+1 
DO 295 J=3»NI#2 

ZU)-Z£ J-2)+VALl*£OS( J“2)+4.*DS< J-i)+DS{ J) ) 

IF(J,EQ*NI) 60 TO 296 

295 Z ( J+1)*Z( J)+VAL+(DS( J)+0S< J+1) ) 

296 CONTINUE 
Z(HC)=0, 

ZCHC-l )-VAL*(DS(HC )+0S(NC-l) ) 

NII=NFC-2 

DO 299 J=2^NII^2 

HCJ=HC-J 

Z(HC J)*Z{MCJ+21+VALl*£0S{MCJ+2)+4,#DS£rtCJ+l >+DS( HC JJJ 

299 ZCMCJ-l>=Z£HCJ3*VAL*(OS{HCJ/+DS£HCJ-in 

300 CONTINUE 

Zl=Z(HC-Nin+VALl*tOS(MC~NII)+4,*DS(HC-NII-lJ+DSCMC-NII-2) ) 
Z1=ZINI+U-Z1 
DO 301 J»3 jNI> 2 
DS1=Z(NFC+J )-Z(NFC+J-l> 

ZtNFC+J-13=ZtNFC+J-23-Zl 
IFCJ.EQ.NI) GO TO 303 
Z1=Z(NFC+J+13-Z(NFC+J) 

303 CONTINUE 

Z tNFC+J3=Z(NFC + J-l)-0Sl 

301 CONTINUE 

PAGE 230 INSERT AFTER LINE 21 THE FOLLOWING 
C SET THE SINES AND COSINES 

PI-3.14159265358979 
OT = (PI+PI3/FLOAT(N3 

IFC(SMa).EQ.O.].AND.(SN(2).EQ.SIN(DT3 3) GO TO 11 
ANG = 0. 

DO 5 J = i,N 
CN(J3 - COStANG) 

SNt J3=-SIN( ANG) 

5 ANG = AN6+DT 

PAGE 230 DELETE LINES 32 THRU 35 AND REPLACE BY THE FOLLOWING 
L - IQ+J 
LP=L+ND 
H=IO 

W =F(L3+F(LP)*CHPLX(CNCH+1)^SN<M+13) 

1F{NR.£Q.2) GO TO 24 
L-LP 

DO 26 K=3,NR 

PAGE 230 DELETE LINE 37 AND RELACE BY THE FOLLOWING 
H « rt+IO 

IF (H.GE.N) H = M-N 
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PAGE 230 DELETE LIME 41 AND REPLACE BY THE FOLLOWING 
IQ=*IQ+NQ 

IF(IQ.GE.N) IO=IQ-N 
22 CONTINUE 

page 231 DELETE LINES 6 THRU 9 AND REPLACE BY THE FOLLOWING 
L = IQ+J 
lp*l+no 
M=ID 

W=X(L)+XtLP)+CMPLX1CN(M+l)#SNlH+l) ) 

IF(NR.E0,2) GO TO 74 
L = LP 

DO 76 K»3#NR 

PAGE 231 DELETE LINE 11 AND REPLACE 8Y THE FOLLOWING 
H => M+ID 

IF (M,GE*N) H = H-N 

PAGE 231 DELETE LINE 15 AND REPLACE BY THE FOLLOWING 
IQ=I0+NQ 

IFCIQ.GE>N) IO=IQ-N 
72 CONTINUE 

PAGE 233 INSERT AFTER LINE 52 THE FOLLOWING 
IFCXSEP.GE.O, ) GO TO 141 

FAC={StNPTS“3>“S{NPTS} )/(SCNPTS-3)-S(NPTS-l) ) 
THETAtNPTS)=FAC*THETA(NPTS-l)+(l,-FAC)*THETAtNPTS-3) 

Hf NPTS)=FAC*H (NPTS-1 > + ( 1 .-F AC 1 *H 1 NPTS-3 ) 

DELS (NPTS)*H(NPTS1«THETA(NPTS) 

141 CONTINUE 

PAGE 234 DELETE LINE 17 AND REPLACE BY THE FOLLOWING 
IF (J.GT.2) GO TO 190 

PAGE 234 INSERT AFTER LINE 36 THE FOLLOWING 
IFfXSEP.GE.O. ) GO TO 221 
FAC={S(2)-S{l)3/(S1Z)-S(3n 
DELS(1)=FAC*0ELS(3)+(1»-FAC)+DELS 12) 

221 CONTINUE 

PAGE 239 INSERT AFTER LINE 40 THE FOLLOWING FIVE SUBROUTINES 


SUBROUTINE SWEEPl 

COHMON PHI(162^31),FP{162* 3l3^A(31)#Bt31)# C (31)iD(31)> E(31) 

-1 > RP ( 31-)>RPP ( 31-)>-R ( 3r)vRS J 31-)vRH-31)-rAA ( 162 )tB6 < 162 >rCO (162 )“ 

.2 i.S I (.1 62 ) aP-HI RT 16 2 )j,XCT 162)# Y.C.(.162 ) #.FH ( 162 ) #.ARC L.( 162 ) #.0S U H ( 162 ). 
3 f ANGOLD (162) #X0LD(162)#YDLD(16Z)#ARC0LD(162) #0EL0LD(162 J 
COMMON /A/ PI»TP#RAD#EMjALP#RN# PCH#XP#TC»CHD#DPHI#CL#RCL#YR 

1 #XA#YA#T£>DT#DR>DELTH#D£LR#RA,0CN#DSN#RA4#EPSIL#QCRIT#C1#C2 

2 #C4>C5f C6>C7>BET#B£TA#FSYH#XSEP,SEP«#TTLE{4)>M#N#MM#NN#NSP 

3 »IK#JK#IZ#ITYP#nQDE#IS#NFC#NCY#NRN>NG#I0IM#N2*N3>N4*NT#IXX 
4# NPTS#LL# I#LSEP#M4»NEW 

COMMON /SOLI/ Q(162#31) 
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DATA Q/5022*0»0/ 

YR-Q. 

NSP = 0 

DD 10 J=1,NN 
PHItMM, J>*PHI(1,J)+0PHI 
PHI ( HH+1^ J) = PHH2,J) + 0PHI 
10 CONTINUE 
TE=-2 

DO 30 I=1L^MM 
CALL NURHANl 
DO 100 
CMI^ J)=0( J) 

100 CONTINUE 
30 CONTINUE 
TE = Z 
I*LL 

80 1=1-1 

CALL MURHANl 
DO 60 J=1>N 
Q(IW)«OU) 

60 CONTINUE 
IFtI.GT,2) GO TO 80 
DO 61 J=ljN 

61 Q(l> J)=Q(f1M,J) 

210 FQRHAT(S(2I4»E16.8) > 

CALL SOLVl 

200 F0RHAT(5CI't,E16.8) ) 

DO 110 I=l/M 
DO 110 J=1»N 

110 PHKI^ J)«PHI( I,J)+QC1, JJ 
DO 111 J=1»N 

111 PHICHN# J)=PHI Cl* J )+OPHI 
IFCRCL.EQ.O.I GO TO 90 

YA=RCL*( CPHI(M*l)-( PHI (2* 1) +DPHI )) *DE LTH+S I (1 ) » 

IFCMODE.EQ.l) GO TO 90 

ALP=ALP-.5*YA 

CALL COST 

GO TO 95 

90 YA=TP«'YA/(1.+BET) 

OPHI=DPHI+YA 
95 DO 97 L=1*M 
97 PHm*NN)=DPHI*PHIR( U 
IFCMODE.EQ.O) RETURN 
DO 120 J=1,N 
DO 120 L«1*M 

120 PHICL, J) = PH1C L* J3^-YA*PHIR(U 
RETURN 
END 


SUBROUTINE HURMANl 

COHHQN PHI ( 162*31)*FP (162*31)* A(31)*aC31)*C (31),DC313*EC31) 

1 >RPC31)*RPP[31)*ftC31J*RS(31>*RI (31 ) * AA C 162 )* BB ( 162 )* CO (162) 

2 *SI (162)*PHIRC162)*XC (162 ) * YC C 162 ) * FH (162 ) * ARCL ( 162 ) * DSUH ( 162 ) 
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3 #ANG0LD[16Z),XDLDa62),YOLDtl62)^ ARCDLD(162),OELOLDa62) 
COMMON /A/ PI>TP>RAO>£H^ ALPjRN^ PCHiXP»TC#CHD,OPHl^CL^RCL»YR 

1 #XAjYA#TE>0T>DR>D£LTH»DELR#RA#DCN>DSNiRA^>EPSIL#QCRIT>Cl>C2 

2 /CA^C5jC6^C7>BET#BETA>FSyM»XSEP>SEPM#mE (A)#M>N^HH>NN»NSP 

3 ,IK, JK> IZ>ITYP,MODEj IS^NFC»NCY>NRN#NG»I0IH,N2,N3 jNA^NT^IXX 
kr NPTS»LL> I#LSEP/HA,NEW 

PHI0=PHI (I,2)-2,*OR*CD(I J 
PHlYP*PHIt I.2)-PHI(I,1) 

PHIYY=PHIYP+PHID-PHI(I,11 

PHlXX=PHIII+i#i)+PHI(I-l^l)-PHI (I»1J-PHI(I^ 1) 

PHIXM=PHia + l,l>-PHI<I-l»l) 

PHIXP^PHI (I+1^2)-PHI( I-l>2) 

IFtl.NE.MM) GD TD 10 

Otl)=Cl+(PHlXX+RS (1)*PHIYY+RA4*CQ(I ) ) 

D<1)=-D<1)/C1 
GQ TO 40 

10 U*PHIXH*OELTH-SI (1) 

BQ=U/FP{I>1) 

QS=U+BQ 
J = 1 

1F(QS*LE«0CRIT) GO TD 30 

oa)=o. 

GO TO 40 
30 CONTINUE 
CS=C1“C2+QS 

BQ-BQ*QS*{FP< I«1^13*FPa+l^l) ) 

X=RA4*fCS + QS) ■i'COtl) 

CHQS=CS-QS 

D<1)=CS4RS{1) *PHIYY+RH1) + B0+X+CHQS*PHIXX 
0(1)— 0C1)/CS 
40 CONTINUE 
DO 60 J=2#N 

PHIXX=PHI{Itl,J)+PHI(I-l,J)^PHni,J3-PHI(I>4) 

DU-PHIXP 

PHIXP=PHI (I+1^J+1)-PN1(1-1j J+ l) 

PHIXY=PHIXP-PHIXH 

PHIXH’DU 

DU»DU*DELTH 

PHIYM-PHIYP 

PHlYP=PHl(I>J+i}-PHI(I, J) 

PHIYY=PHIYP-PHIYH 

U-R{J)4DU-SI(I) 

DV=R{ J) *^(PHI( I, J+lJ-PHia» J-IJ )*DEU 
V=DV+R{ J )-C0( I) 

RAV=R( JM'RAi'V 
_BQ=1.AF-P Uj J). 

BQU=6Q>i=U 
US=BOU*U 
UV*(fiQU+BOU)+V 
VS«BQ*V*V 
QS=U$tVS 
IF(QS.LE.QCRIT) 

D(J)=0. 

60 TO 60 
50 CS»C1-C2*0S 

cnvs=cs-vs 

CHUS=CS-US 


GQ TO 50 
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UV1».5*BQU*RAV 
Ct J3 -RS ( J3+CHVS 

D( J)=RA4*t (CMVS+US-VS)*DV-UV*DU)+Rl(J>*ClS+BO*(U* tFP (I-l#J)-FPa+l> 
IJ) J+RAV*(FP(I,J-l3-FPtI> J + 1) J >+CMUS*PHIXX-UVl*PHIXY+CC J)*PHIYY 
0( J3=^-D(J)/CS 
60 CONTINUE 
RETURN 
END 


SUBROUTINE SOLVl 

COMMON PHI(162^ 313 fFP( 162^31 )^A(31 )jB1 31 3,C( 313 >0(31 3>E (313 

1 >RP(313>RPP(31)*R(31)»RS{31}>RI(313>AAC162)>BB(162 )>CQ(162) 

2 >SH162 3>PHIR( 1623 >XC(162)>YC(162)>FH(162)>ARCL(16Z)>DSUH(162 3 

3 »ANGQL0(1623»X0LD(162)>YDLD( 1623>ARCOLD(162)>DELQLD(162) 

COMMON /A/ P1>TP>RAD>EM>ALP>RN>PCH>XP>TC>CHD>DPHI>CL>RCL>YR 

1 >XA#YA>TE>DT>DR>0ELTH»DELR>RA>0CN>DSN>RA4> EPSIL>QCRIT>C1>C2 

2 >CA^»C5>C6>C7>BET>BETA»FSYM»XSEP>SEPH>TTLE (4)>M>N>MH>NN>NSP 

3 >IK>JK»IZ>ITYP>MQD£>IS>NFC>NCY>NRN>NG>ID1H>N2»N3>N^>NT> IXX 

NPTS>LL>I>LSEP> M4> NEW 
COMPLEX FF>F1>GG 

DIMENSION CX( 1623>SX{16Z)>FF(1623>GG(162),F1(31) 

COMMON /SOLI/ Q{162>313 
IF(NEW«NE»1) GO TO 30 
00 1 I=1>M 
cx(i l-COS(.t I-1)*DT3 
SX(I )=5INf (I-13*OT3 

1 CONTINUE 
NEW=0. 

HMP=HH+1 

30 CONTINUE 
HA»H/2 
HA1=MA+1 
00 2 J-1»N>2 

CALL TW0FFT(H>0(1> J)>Q(1> J+i)>FF»GG,CX>SX»13 

00 7 I=1>HA1 

IH*H-I+3 

Q(l> J3-REAL(FFfl3 ) 

Q(lW+13=R£ALtGG(I3 3 
Q( IH>J3 =-AIHAGtFF(I 3 3 
Q(IM>J+1)*-AIHAG(GG(I33 
7 CONTINUE 

2 CONTINUE 
HR*. 5*DR 
DO 3 J=1>N 
D(J)*2.*RSCJ3 
T=RA*RA*R( J) 

B(J)=T#(RCJ3-HR3 
C(J3=T*<R(J3+HR3 
C(13»D(13 
00 4 1=1, MAI 
IM=M-I+3 
DO 5 J = 1>N 

A(J)— D(J)-2.*(1.-CX(I) 3 


3 



o<-joor>or>ir> 
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5 FFUJ'CHPLXCQd, JJ.jQdM* J) ) 

CALL TRID1(B>A^C#FF#F1^N,I0IM) 

DO 8 J*1^N 

fl( I> J) = REALCF1(J ) ) 

QI1H» J )=AIHA6 (Fl( J) > 

8 CONTINUE 
A CONTINUE 

00 9 

DO 10 I=1#MA1 
IH=H-I+3 

FF(I>=CMPLX(Q1Ij J) j-tH IM> J>) 

GGCI >=!CMPLX(Q(I>J + l)f-Q{IH#J+l) ) 
FF{IM)=CHPLXtO(I, J),C(Irt5jn 
10 GGtIH)=CMPLX(Q( I# J + l),OaM, J+in 

CALL TWCFFTC-H,Q(1# J),Q{1, J*l)^FF,GG^CX,SXd) 

9 CONTINUE 

00 12 J*1»N 
Qifin^jj=Q<i> jj 
12 QtrlHP> J )=Q(2# J) 

RETURN 

END 


SUBROUTINE TRIDI ( A» B» RHS^ OUT^ NjIOIH) 
COMPLEX RHS>OUT 
DIMENSION A(UjB(1)^C(1) 

DIMENSION 6At35) ^RHSaDlMJ#0UT(35) 
REC=1./B(1) 

GA(l)=REC*Cm 
OUT ( L)=REC*RHS (1) 

00 10 J = 2,N 

REC*1./(B( J)-A(J)*GA(J-1)} 

GA( J)=REC*CfJ) 

10 □UT{J) = REC + (RHSIJ)-A(J )=fOUT( J-l ) ) 

DO 20 JJ=2^N 
J«N-JJ+1 

20 OUT( J)=DUT{J}-GA{J)*0UTCJ+1) 

RETURN 

END 


- SUBROUTINE- TMOF F T ( N S » F / G» A LTP> BET fC S N} ID 1 H) 

ABS(NS.) ,I.S THE .NUMBER. .OF ROINT-S- IN EACH- ARRAY 

DO FFT FOR F AND G OR REVERSE TRANSFORM FOR ALP AMO BET 

If NS<0 THE REVERSE TRANSFORM IS PREFORMED 

FUNCTIONS F AND G ARE REPRESENTED BY ARRAYS OF THEIR VALUES 
ALP AND BET ARE COMPLEX FOURIER COEFFICIENTS FDR F AND G 
ALP(N) IS OF THE FORM ACN)-I*B(N) 

CN AND 5N ARE THE COSINE AND SINE ARRAYS 

IDIM IS THE SKIP FACTOR BETWEEN POINTS IN F AND G 

COMPLEX ALP^BET^X 
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DIMENSION FtIDin^I),G(IDIH,l),ALP<l)^BET(l>^CM(l)»SNCl) 

N = lABStNS) 

L = N/2 

C SET UP AND DO COMPLEX TRANSFORM 

IF (NS.LT.O) 60 TO ZO 
DO 10 J = i,N 

10 ALP(J> =* CHPLX{F{1,J>j6(1>J1) 

GO TO 40 

C SET UP FDR REVERSE TRANSFORM 

20 J=N+1 

00 30 K 1»L 

X =-CHPLX( AIHAG(BET(K>)-REAL( ALP IK ) ) , AIM AG ( ALP ( KH +REAL ( BE T ( K) > > 
ALPU)«X 

X = CHPLX(REALCALPIK)) + AIMA6(6ETIK3 J >AlHA6IALPfK) J-REALIBETIK) )) 
ALP CK» = X 
30 J = J-1 
K=L + 1 

ALP IK) =l»*(CnPLX{REALIALp(Kn+AIHA6(BET(K) ) , AIM AG I AL P { K) )-REAU6E 
ITIK) ) ) ) 

40 CALL FFDRHCN* ALPj6ETjCN»SN) 

C NOW SEPARATE OUT THE REAL AND IMAGINARY PARTS 
J * N 

IF (NS.LT.O) 60 TO 60 
ENI-.5 

00 50 K = 1,L 

X « CQNJG(ALP U) )-ALPCK+l) 

BET(K+1J =-ENI*CHPLX£ AIM AG I X ) , REAL I X J) 

ALP(K+1) = ENI+CCONJG(ALPIK+l))fALP( J)) 

50 J = J-1 

BET(l) » I ENI+ENI )+AIHAG( ALPIl) ) 

ALP(1> = ( ENI+ENI)*REAL(ALPm ) 

RETURN 

60 DO 70 J =» 1»N 

FIljJ) = REAL ( ALP I J ) } /N 
70 6(1#J) = -AIMA6(ALP(J))/N 
RETURN 
END 
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